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IDENTIFICATION 
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PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 



AC-8402D-MC 
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MAR 1980 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUiES NO R6SP0NSSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER LJ CENSE AM) 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSlflES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1972. 1980 

DIGITAL EQUIPMENT CORPORATION 

MAYNARD, MASSACHUSETTS 01754 
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ABSTRACT 

THIS PROGRAM IS TO BE USED AS A CARD READER DIAGNOSTIC FOR 
THE PDP-11 WITH THE CD11 CARD READER INTERFACE TO THE 
DOCUPIATION M1000 OR m200 PUNCHED CARD READER. IT TESTS ALL 
LOGIC FUNCTIONS OF THE CARD READER. AND INCLUDES AN 
EXERCISER FOR ALPHANUMERIC AND BINARY TEST DECKS- SEPARATE 
STARTING ADDRESSES ALLOW THE ERROR SENSING FUNCTIONS OF THE 
DOCUHATION M 1000 AND Ml 200 READER TO BE CHECKED. ANOTHER 
STARTING A iESS TESTS SPECIAL DECKS WHICH HAVE ALL COLUMNS 
AND CARDS CHED IDENTICALLY, TO AID IN DIAGNOSING SPECIAL 
PROBLEMS. 

REQUIREMENTS 



EQUIR1ENT 

PDP-11/ STANDARD COMPUTERS 
CD11 CARD READER 



TEST DECKS 

MAINDEC-89-D2A1-C ALPHANUMERIC TEST DECK 
MAINDEC-89-D2A2-C BINARY TEST DECK 
SPARE CARDS FOR THE ERROR FUNCTION TEST 



STORAGE 

THE ROUTINE OSES MEMORY 0 TO 16100. 
LOADING PROCEDURE 

PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 

STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

BASIC SWITCH REGISTER SETTINGS ARE: 

SW15=1 OR UP HALT ON ERROR 

SWU=1 OR UP SCOPE LOOP 

SW13=1 OR UP INHIBIT PRINT OUT 

SW12=1 OR UP INHIBIT TRACE TRAPPING 
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4.2 



4.3 



4.3.1 



SW11=1 OR UP INHIBIT SUB-PROGRAM ITERATION 

SW07=1 OR UP LOOP THRU THE INSTRUCTION TEST PORTION 



(NOTE THAT THE PROCESSOR MAY HANG 
LEGITIMATELY WHEN THE INPUT HOPPER GOES EMPTY 
IF SW7 IS SET) 

SW06=1 OR UP RETURN TO THE BEGINNING OF THE INSTRUCTION 

TEST UHEN CONTINUING FROM ONE DECK TO ANOTHER 

SW05=1 OR UP HALT BETWEEN TEST DECKS 

(SEE 5.2.1 FOR EXPLANATION OF SW5=0) 

SW04=1 OR UP RUN THE BINARY TEST DECK 

SW03=1 OR UP RUN IN IMAGE MODE ONLY 

SW02=1 OR UP RUN IN PACKING MODE ONLY 



STARTING ADDRESSES 

200 = INSTRUCTION AND DATA TEST 
210 = ERROR FUNCTION TEST (Ml 000) 
220 = SINGLE SUBTEST LOOP 
240 = READ SINGLE DATA PATTERN TEST 
250 = ERROR FUNCTION TEST (Ml 200) 



PROGRAM AND/OR OPERATOR ACTION 



INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 
LOAD PROGRAM INTO MEMORY. 

LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER. 
PRESS RESET ON THE CARD READER. 
SET SWITCH REGISTER TO STARTING ADDRESS. 
LOAD ADDRESS. 

SET SWITCHES (SEE 4.1)-ALL DOWN FOR WORST CASE, ALPHA 

DECK. 
PRESS START. 

WHEN THE INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING 
FOR AN INTERRUPT FROM THE CARD READER. LOAD ONE OR 
MORE TEST DECKS INTO THE INPUT HOPPER. PRESSING 
•T^ESET" ON THE CARD READER SHOULD CAUSE PROGRAM 
EXECUTION TO RESUME. _ 

THIS ENTIRE SEQUENCE IS NECESSARY TO RUN THE FULL TEST ON 
THE CARD READER. 



TEST 



4.3.2 ERROR FUNCTION TEST ^SA 210 OR SA 250) 

STARTING ADDRESS 210 FOR Ml 000 READER AND 250 FOR Ml 200 
READER. 

LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER (DO NOT LOAD A 
TEST DECK-THIS IS DESTRUCTIVE!) 
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4.3.3 



4.3.4 



5.0 



5.1 



5.1.1 



PRESS 'WESET" ON THE CARD READER. 

LOAD THE STARTING ADDRESS, THEN SET THE DESIRED SWITCH 

OPTIONS. 
PRESS STAR I. 



FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 



SINGLE SUBTEST LOOP (SA 220) 

LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT 
HOPPER. 

PRESS "RESET' ON THE CARD READER. 
LOAD THE STARTING ADDRESS. 
PRESS START, 

AT THE 1ST HALT; LOAD THE STARTING ADDRESS OF THE DESIRED 
TEST (ADDRESS OF THE SCOPE INSTRUCTION AT THE 
BEGINNING OF THE TEST.) 

PRESS CONTINUE. 

AT THE 2ND HALT SET THE SWITCH REGISTER OPTIONS (SIT 11 

P1UST=0) . 
PRESS CONTINUE. 



SINGLE DATA PATTERN TEST (SA 240) 

A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS 
TEST. ANY DATA PATTERN MAV BE USED, BUT IT MUST BE 
IDENTICAL IN ALL 80 COLUMNS OF ALL THE CARDS (I.E. 
ONLY ONE PIECE OF DATA). 

LOAD THIS PREPARED DECK INTO THE INPUT HOPPER. 

PRESS CARD READER "I^ESET". 

LOAD SA 240. 

PRESS START. 

AT THE INITIAL HALT SET THE CARD IMAGE OF THE DATA PATTERN 

USED IN SW11-SW00. 
PRESS CONTINUE. 

ON THE SECOND HALT LOAD THE DESIRED SWITCH SETTINGS. 
PRESS CONTINUE. 

WHEN THE CARD READER RUNS OUT OF CARDS IT WILL RING THE 
BELL. 

RELOADING THE DECK AND PRESSING '1»ESET" ON THE CARD READER 
WILL CONTINUE THE TEST. 



OPERATING PROCEDURE 



OPERATIONAL SWITCH SETTINGS 



AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST) 
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SEE 4.1 



5.1.2 AT SA 210 OR SA 250 (ERROR FUNCTION TEST FOR CD11> 

SW14=1 TO LOOP THRU THE CURRENT SUBTEST 
SW15=1 TO HALT ON ERROR 

5.1.3 AT SA 220 (SINGLE SUBTEST LOOP) 

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST 
2ND HALT - SET SR OPTIONS (BIT J1 MUST=0) 
SEE 4.1 FOR SR OPTIONS 

5.1.4 AT SA 240 (SINGLE DATA PATTERN TEST) 

1ST HALT-LOAD THE CARD-IMAGE OF THE DATA PATTERN IN 

SU11-SU00. 
2ND HALT-SET SR OPTIONS. 

SW15=1 TO HALT ON ERROR 
SW03=1 TO TEST IMAGE MODE ONLY 
SW02=1 TO TEST PACKING MODE ONLY 

5.2 SUBROUTINE ABSTRACTS 

5.2.1 BEGIN (SA 200) 

THE INSTRUCTION TESTS ARE RUN FIRST. FOLLOWED BY THE DATA 
RELIABILITY TESTS ON THE REMAINING CARDS IN THE FIRST TEST 
DECK. AT THE END OF THE DECK THE BELL WILL RING, AND IF 
SW5=1 THE PROGRAM HALTS. IF SW5=0. PROGRAM ACTION DEPENDS 
ON THE NlfBER OF TEST DECKS LOADED. IF THERE ARE STILL 
CARDS IN THE INPUT HOPPER, THE PROGRAM WILL RUN THE DATA 
RELIABILITY TEST ON THE ENTIRE DECK. IF THE INPUT HOPPER IS 
EMPTY AT THE END OF A DECK, THE PROGRAM WILL RUN A SET OF 
TESTS OF OFF-LINE OPERATIONS. AT THE END OF THESE TESTS, IT 
WAITS FOR THE CARD READER TO BE PUT BACK ON-LINE. FURTHER 
CHECKS ARE MADE OF THE OFF-LINE TO ON-LINE OPERATIONS, AND 
THEN THE DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK. 
IF SW5=1, HITTING CONTINUE WILL RESLUE PROGRAM OPERATION 
AFTER THE HALT. IF ALL OTHER SWITCHES WERE DOWN. FOR 
EXAMPLE. THE DATA RELIABILITY TEST WOULD THEN BE RUN ON THE 
NEXT DECK. THE OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED 
IN 4.1. 

5.2.2 SCOPE 



SEC 0005 
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THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE 
INSTRUCTION SECTION. IT RECORDS THE STARTING ADDRESS OF 
EACH SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS 



REQUESTED. IT WILL JUMP TO THE START OF THE SUBTEST THAT THE 
SCOPE LOOP IS REQUESTED FOR. IF SCOPE LOOP IS NOT 
REQUESTED, THERE WILL BE 1 ITERATION ON THAT SUBTEST BEFORE 
THE NEXT SUBTEST IS ENTERED. SWITCH 1 1 ON A 1 INHIBITS 
ITERATION OF SUBTESTS. 

5.2.3 HLT 

THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME 
OF FAILURE. THE CONTENTS OF THE PROCESSOR STATUS REGISTER. 
AND THE CONTENTS OF THE CARD READER STATUS REGISTER. NOTE 
THAT THE LOCATION COUNTER WILL BE THE ADDRESS OF THE HLT 
PLUS TWO. 

5.2.4 TTRAP 

THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST 
LOOP OF THE PROGRAM. THE TRACE BIT WILL BE SET ON ALTERNATE 
LOOPS OF THE INSTRUCTION AND DATA TEST UNLESS SW12 IS SET. 
THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS AN "RJl" 
WHICH RETURNS TO THE INTERRUPTED SEQUENCE. THIS CONTINUES 
UNTIL THE END OF THE PROGRAM LOOP IS REACHED. 

5.2.5 TRAPCATCHER 

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AM) 
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY. 

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF 
THE NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT 
(000000). THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A 
HALT AT THE TRAP LOCATION PLUS TWO. 

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA. EXAMINE 
REGISTER SIX. IT WILL CONTAIN THE CURRENT STACK ADDRESS. 
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE OF 
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 

5.2.6 ERCD11 (ERROR FUNCTION TEST) 

THE FIRST SUBTEST OF THE ERROR FUNCTION TEST (TESTA) CHECKS 
THE DATA LATE ERROR. THE REST OF THE SUBTESTS CHECK THE 
OPERATION OF THE VARIOUS ERROR SENSING FEATURES OF THE 
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DOCUnATlGN HI 000 AND Ml 200 CARD READER. CARD READER 
OFF-LINE, INPUT HOPPER EMPTV. OUTPUT STACKER FULL. PICK 
ERROR, STACK ERROR, AND READ ERROR ARE CHECKED. 



5.2.7 TESTX (SINGLE TEST LOOP) 

THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY 
FOR SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTIONS 
EXISTS, IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH 
VOU WISH TO LOOP. IN SOME CASES (SUCH AS WITH INTERMITTENT 
FAILURES) THAT'S NOT EASY TO DO. THIS SUBROUTINE ALLOWS YOU 
TO LOAD THE ADDRESS OF ANY TEST FROM TEST1 THRU TEST22 AND 
TESTA THRU TESTH AT THE HALT AND THEN 60 DIRECTLY TO THAT 
TEST. 

5.2.8 CKSAME (SINGLE DATA PATTERN TEST) 

THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 
DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER 
ADJUSTMENTS. IT CONTINUOUSLY READS CARDS WHICH HAVE ALL 
COLUMNS PUNCHED IDENTICALLY (AND ALL CARDS rj5T BE 
IDENTICAL), CHECKING THE DATA AGAINST A PATTERN SET UP ON 
THE SWITCHES INITIALLY. ANY ERRORS ARE PRINTED OUT ALONG 
WITH A COUNT OF THE TOTAL NUMBER OF CARDS READ AND THL TOTAL 
NUMBER OF DATA ERRORS WHICH HAVE OCCURRED SINCE THE TEJT WAS 
STARTED. 



5.3 PROGRAM AND/OR OPERATOR ACTION 



5.3.1 LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS WORST 
CASE TESTING. A SINGLE ALPHANlf€RIC DECK SHOULD BE RUN. 
THIS EXECUTES AN INSTRUCTION TEST FOLLOWED BY A DATA 
RELIABILITY TEST. AT THE END OF THE DECK CHECKS ARE HADE OF 
THE FLAG SETTINGS WHICH SHOULD BE AFFECTED. AND THE PROGRAM 
WAITS FOR AN INTERRUPT FROM THE READER COMING BACK ON-LINE. 
AT THE END OF THE FIRST DECK THE OPERATOR SHOULD LOAD ONE OR 
MORE DECKS IN THE INPUT HOPPER AND PRESS 'TiESET" ON THE CARD 
READER. IF THE CARD READER IS WORKING PROPERLY. THE ENTIRE 
DECK WILL BE RUN THRU THE DATA RELIABILITY PORTION OF THE 
TEST. IF, AFTER READING 80 CARDS. THE INPUT HOPPER IS NOT 
EMPTY, THE PROGRAM WILL CONTINUE TO THE NEXT DECK. SWITCH 
OPTIONS MAY BE USED TO ALTER THIS FLOW AS NOTED IN SECTION 
4.1. 

5.3.2 TO GO DIRECTLY TO A SINGLE SUBTEST AND RUN IT CONTINUOUSLY, 
USE SA 220. AT THE FIRST HALT. SET THE SWITCH REGISTER TO 
THE STARTING ADDRESS OF THE DESIRED SUBTEST (I.E. THE 
ADDRESS OF THE SCOPE INSTRUCTION AT THE START OF THE TEST). 
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6.0 



6.1 



6.1.1 



6.1.2 



6.1.3 



AND CONTINUE. AT THE SECOND HALT, SET THE DESIRED SWITCH 
REGISTER OPTIONS AND CONTINUE (SWll MUST BE = 0) . THE 
PROGRAM WILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST 
UNTIL SW11 IS SEl OR THE PROCESSOR IS HALTED. 



ERRORS 



ERROR PRINTOUT 



STANDARD PRINTOUT 



PRINTOUTS ARE IN A THREE-WORD FORMAT. THE FIRST IS THE PC*2 
OF THE DETECTED ERROR. THE SECOND IS THE CONTENTS Of THE 
PROCESSOR STATUS REGISTER WHEN THE ERROR WAS DETECTED. THE 
THIRD IS THE CARD READER STATUS REGISTER. 



DATA ERROR PRINTOUT 

THE HEADING IS PRINTED OUT ONCE PER TEST DECK. 
HAWE THE FOLLOWING SIGNIFICANCE: 



THE COLUWS 



DECK =EITHER ALPHANUMERIC OP BINARY, DEPENDING ON 

SWITCH 4 

CARD =THE CARD NUMBER WHERE THE FAILURE OCCURRED (IN 

OCTAL) 

COLUMN =THE COLUMN NUMBER WHERE THE FAILURE OCCURED (IN 
OCTAL) 

PATTERN =THE CORRECT CARD DATA THAT SHOULD HAVE BEEN READ 
READ =WHAT WAS ACTUALLY READ INTO CORE 

DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 

A. SW04 NOT SET TO TYPE OF DECK USED 

B. CARD MISSING 

C. CARD DECK OUT OF PROPER SEQUENCE 

D. DAMAGED CARD 



SINGLE DATA PATTERN PRINTOUT 

THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING ONCE. 
COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 



THE 



COLUMN =THE COLUMN NlfBER WHERE THE FAILURE OCCURRED. 

READ =DATA THAT WAS ACTUALLY READ INTO CORE 

CARDS =THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE 

BEEN RUN SINCE THE TEST WAS STARTED. 
ERRORS =THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) 

SINCE THE TEST WAS STARTED. 
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6.2 ERROR RECOVERY 

IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND 
CONTINUE. IF THE '*!ALT ON ERROR" SWITCH IS SET, HITTING 
CONTINUE WILL RECOVER. If THE PROGRAM HANGS UP IN A LOOP, 
THE ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED. 
IF A HALT OCCURS IN THE TRAP AND VECTOR AREA THE PROGRAM 
MUST BE RESTARTED. IF THE PROGRAM HALTS IN THE MAIN FLOW, 
CONSULT THE LISTING IF NO MESSAGE IS TYPED OUT. 

7.0 RESTRICTIONS 

7.1 STARTING PROCEDURE 
NONE 

7.2 OPERATIONAL RESTRICTIONS 

7.2.1 COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200) 

IF A STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE TEST, 
THE PROCESSOR MAY HANG WHEN THE INPUT HOPPER GOES EMPTY, A.ND 
THIS IS NOT TO BE REGARDED AS A FAILURE. 

WHEN USING THE STANDARD TEST DECKS, THEY MUST BE IN PROPER 
SEQUENCE AND IN 6000 CONDITION. IT IS A GOOD IDEA TO NUMBER 
THE CARDS IN EACH DECK AS SOON AS THE DECK IS RECEIVED. 

7.2.2 ERROR FUNCTION TEST (SA 210 OR SA 250) 

THE ERROR FUNCTION TEST REQUIRES SPARE CARDS, AS IT BENDS 
SEVERAL. ALSO, TO RUN THE OARK-LIGHT CHECK, A CARD MUST BE 
SPECIALLY PREPARED. THE TEST WILL TYPE OUT A REQUEST FOR 
THAT CARD WHEN IT IS NEEDED. TO MAKE IT. TEAR ONE CORNER 
OFF ONE CARD. 

7.2.3 SINGLE DATA PATTERN TEST (SA 240) 

A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED. ALL 
COLUMNS OF ALL CARDS ARE PUNCHED IDENTICALLY. USING A DATA 
PATTERN WHICH WILL TEST THE PROBLEM BEING DIAGNOSED. 
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8.0 



d.l 



8.2 



8.2.1 



8.2.2 



8.3 



8.4 



8.5 



MISCELLANEOUS 

EXECUTION TIME 
NOT APPLICABLE 

CARD DECK DESCRIPTION 

ALPHANUMERIC 

REFERENCE THE ALPHANLWERIC TABLE BEGINNING AT THE TAG ALPCD 
IN THE LISTING FOR THE IMAGE CODES PUNCHED FOR EACH OF THE 
80 C0LJ1NS OF THE FIRST CARD. THIS IS FOLLOWED BY THE TABLE 
OF THE PACKED FORM OF THE EACH SUCCESSIVE CARD IN THE DECK 
USES THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE 
LEFT. 

BINARY' 

REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD 
IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 
COLUMNS OF THE 1ST CARD. AS WITH THE ALPHANUMERIC DECK EACH 
SUCCESSIVE CARD HAS THE SAME SEQUENCE OF CODES ROTATED ONf 
COLUIN TO THE LEFT. AND THE TABLE FOR PACKED DATA FOLLOWS IN 
THF SAME FASHION. 

SPECIAL NOTES 

IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD. 
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER. 

TESTING CDIl'S WITH NON-STANDARD ADDRESSES 



BY SUBSTITUTING INTO THE 
"CDBA" THE ADDRESSES OF 
ASSIGNED NON-STANDARD 



LOCATIONS "CDSt". "CDCC". AND 
THESE REGISTERS OF A CARD READER 



ECO HISTORY 

CH6D1 - MODIFIED ALPCD AND BINCD TABLES FOR CORRECT CARD 
COWARISON PURPOSES. 
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SEQ 0011 



TITLE C2CDAD0 CD11 CARD READER DIAG 
DIAGNOSTIC FOR THE CD11 CARD READER 

COPYRIGHT 1973, 1979 BV DIGITAL EQUIPMENT CORP.. MAYNARD, MASS. 01754 
PROGRAMMER: KEN CHAPMAN 

SUB MALLICK (CHANGED FROM REV A TO REV 8 ) 

LEN LORANGER (CHANGED FROM REV C TO REV D) 

STARTING ADDRESSES ARE: 

200=INSTRUCTI0N AND DATA TEST FOR THE CD11 
210=ERR0R FUNCTION TEST OF CD11 (M-1000) 
220=SINGLE TEST LOOP 
240=READ SINGLE DATA PATTERN TEST 
250=ERR0R FUNCTION TEST FOR CD11 (M-1200) 

SWITCH REGISTER SETTINGS FOR THE INSTRUCTION AND DATA TEST ARE: 
SW02=1 RUN IN DATA IMAGE MODE ONLY 

SU03=1 RUN IN DATA PACKING MODE ONLY (IGNORED IF SU02=1} 

SW04=1 FOR THE BINARY TEST DECK 

SW05=1 TO HALT AT THE END OF A STANDARD 80 CARD 

TEST DECK. (HITTING CONTINUE WILL START TESTING 
OF THE NEXT DECK IN ACCORDANCE WITH CURRENT 
SWR SETTINGS). 

-0 TO CONTINUE FROM ONE DECK TO THE NEXT. 

AFTER THE LAST DECK IN THE HOPPER IS 

RUN, THE PROGRAM WAITS FOR THE CARD READER 

TO COME BACK ON-LINE, AND RUNS THRU 

A SERIES OF CHECKS OF OFF-LINE AND 

COMING ON-LINE OPERATIONS OF THE READER. 

WHEN THE READER IS BACK ON-LINE AND THE 

CHECKS ARE COMPLETE, THE DATA TEST IS RESUMED. 

SW06=1 TO RUN THE COMBINED INSTRUCTION AND DATA TEST 
WHEN CONTINUING FROM ONE DECK TO THE NEXT 
=0 TO RUN ONLY THE DATA TEST ON EVERY DECK AFTER THE FIRST 

SW07=1 TO RUN ONLY THE INSTRUCTION TEST CONTINUALLY. 

SETTING SU06 AND SW07 AT THE END OF A DECK WILL 
CAUSE THE INSTRUCTION TEST TO BE RUN CONTINUOUSLY FROM THEN ON 
(NOTE THAT IF SW7 IS SET, THE PROGRAM MAY HANG WHEN THE 
CARD READER RUNS OUT OF CARDS) 

SW11=1 TO INHIBIT SUBPROGRAM ITERATION 

(NOTE THAT IF PROGRAM FLOW IS ALLOWED TO ENTER THE 
DATA SUBTEST WHEN SW11 IS SET, DATA ERRORS WILL 
OCCUR SINCE THE CARD COUNT WILL BE INCORRECT.) 

SW12=1 TO IWIBIT TRACE TRAPPING 

SW13=1 TO IWIBIT PRINTOUT 

SW14=1 FOR SCOPE LOOP 

SW15=1 TO HALT ON ERROR 

OPERATING PROCEDURE FOR THE INSTRUCTION AND DATA TEST: 

1. LOAD TEST DECK IN CARD READER AND PRESS "START" ON THE CARD 
READER. IF THE DECK BEING USED IS NOT A STANDARD TEST 
DECK, ONLY THE INSTRUCTION PORTION OF THE TEST CAN BE RUN. 
(SW7 MUST BE SET TO ONE TO INDICATE THIS). 

2. LOAD SA 200, THEN SET THE SWITCH REGISTER SWllCHES TO THE DESIRED 



I 
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595 

596 
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598 

599 

600 

601 

602 

603 

604 
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607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

654 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 
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OPERATOR PROCEDURES 

COMBINATION 

3. PRESS "START" ON THE CONSOLE 

4, NOTE THAT RUNNING THE COMPLETE INSTRUCTION TEST 
REQUIRES THAT THE INPUT HOPPER MUST RUN OUT OF CARDS 
AT THE END OF A TEST DECK AT LEAST ONCE. WHEN THIS 
OCCURS, THE PROCESSOR SHOULD CONTINUE TO RUN. LOADING 
A DECK INTO THE INPUT HOPPER AND PRESSING "START" ON THE CARD 
READER SHOULD CAUSE THE BELL TO RING AND THE CARD 
READER TO RESUME READING CARDS. IF THIS DOES NOT OCCUR, 
IT IS A FAULT AND SHOULD BE FIXED. 

SPECIAL SWITCH REGISTER SETTINGS FOR THE ERROR FUNCTION TEST: 
SW14=1 TO LOOP THRU THE CURRENT SUBTEST 
SW15=1 TO HALT ON E.?ROfi 

OPERATING PROCEDURE FOR THE ERROR FUNCTION TEST: 

1. LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER. 

2. PRESS "START" ON THE CARD READER. 

3. LOAD THE SA, THEN SET THE DESIRED SWITCH OPTIONS. 

4. PRESS '^TART" ON THE CONSOLE. 

5. FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 

SINGLE TEST LOOP (SA 220) HALTS TWICE! 

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST (lESTI TO TEST 24) 
2ND HALT - SET SWR OPTIONS (BIT 11 MUST = 0) 

THIS TEST USES TRACE TRAPPING WHERE APPLICABLE IF SW12 IS NOT SET 

DESCRIPTION OF SINGLE DATA PATTERN TEST 

THIS TEST IS DESIGNED TO AID IN THE LOCATION OF DIFFICULT DATA ERROR 
PROBLEMS AND PERHAPS HELP IN SOME CARD READER ADJUSTMENTS. IT 
CONTINUOUSLY READS CARDS WHICH HAVE ALL COLlfMS PUNCHED OR MARKED 
IDENTICALLY, CHECKING THE DATA A6INST A PATTERN SET UP ON THE SWITCHES 
INITIALLY. ANY ERRORS ARE PRINTED OUT, ALONG WITH A COUNT OF THE TOTAL 
NUMBER OF CARDS READ AND THE TOTAL NU«ER OF DAI A ERRORS WHICH HAVE 
OCCURRED SINCE THE TEST WAS STARTED. 

OPERATING PROCEDURE FOR SINGLE DATA PATTERN TEST: 

1. LOAD TEST DECK OF IDENTICAL CARDS IN THE INPUT HOPPER, AND PUT 
THE CARD READER ON-LINE. 

2. LOAD SA 240, THEN PRESS "START" ON THE CONSOLE. 

3. AT THE INITIAL HALT SET THE CORRECT CARD-IMAGE 
DATA PATTERN IN SW11-SW00, THEN PRESS CONTINUE. 

4. WHEN THE READER RUNS OUT OF CARDS IT WILL RING THE 
BELL. RELOADING THE DECK AND PRESSING "START" ON THE CARD 
READFR WILL CONTINUE THE TEST. 

STATUS AND CONTROL REGISTER (CDST) BIT DESIGNATION 



SEQ 0012 



BIT 0 
BIT 1 
BIT 
BIT 
BIT 
BIT 
BIT 



2 
3 
4 
5 
6 



READ 
DATA PACKING 
BUSY 

READER TRANSITION TO ON LINE 
ADDRESS BIT 16 
ADDRESS BIT 17 
INTERUPT ENABLE 



CZCOADO CDII CARD READER DIAG 
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651 



6W 
655 
656 
657 
658 
659 
660 

661 177570 

662 1 7mt> 

663 000240 

664 104000 

665 104400 

666 000004 

667 000000 

668 000000 

669 000001 

670 000002 

671 000003 

672 000004 

673 000005 

674 000005 

675 000006 

676 000007 
677 

678 

679 000000 

680 

681 

682 000014 

683 000014 000514 

684 000016 000340 

685 000020 

686 000020 012452 

687 000022 000340 

688 000024 

689 000024 015756 

690 000026 000340 

691 000030 

692 000030 012230 

693 000032 000340 

694 000034 

695 000034 012354 

696 000036 000340 
697 

698 

699 000200 

700 000200 012706 000500 

701 000204 000167 000570 

702 000210 

703 000210 012706 000500 

704 000214 000167 006326 

705 000220 

706 000220 012706 000500 
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DEFINITIONS AND VECTOR ASSIG^f«NTS 

BIT 7 CONTROLLER READY 

BIT 8 POWER CLEAR 

BIT 9 NON-EXISTENT MEMORY 

BIT 10 DATA LATE 

BIT 11 DATA ERROR 

BIT 12 OFF LINE 

BIT 13 END OF FILE (M1200 ONLY) 

BIT 14 CARD READER ERROR 

BH 15 ERROR 

SUR= 177570 

PS= 177776 

N0P= 240 

HLT= EMT 

SC0PE= TRAP 

TYPE= lOT 

DUMMy= 0 

R0= XO 

Rl= XI 

ADINT= X2 

CDS= XI 

CDC= X4 

CDA= X5 

TTY= X5 

SP= X6 

PC= X7 



SEO 0013 



SCRATCH 
SCRATCH 

CONTAINS ADDRESS OF 
CONTAINS ADDRESS OF 
CONTAINS ADDRESS OF 
CONTAINS ADDRESS OF 

.STACK POINTER 
.PROGRAM COUNTER 



INTERRUPT VECTOR 
CARD READER STATUS REGISTER 
CARD READER COLUMN COUNT 
CARD READER BUS ADDRESS REG. 



.ABS 
.=0 

.LOAD 
.=14 



.=20 
.=24 
.=30 
.=34 



:LOAD 
.=200 



;TRAP CATCHER IS LOADED INTO LOCATIONS 0 THRU 377 

TRAP VECTORS FOR HLT AND SCOPE ROUTINES 

TRTRAP 
340 

STYPE 
340 

POUR 
340 

PRINT 
340 

SCOPE C 
340 

STARTING ADDRESS AREA 



.=210 
.-220 



MOV 
JMP 

MOV 
JMP 

MOV 



fSTACK, SP 

BEGIN 

#STACK. SP 
ERCD11 

*STACK. SP 



.NORMAL STARTING ADDRESS FOR CDII READER 

.STARTING ADDRESS FOR CDII (MIOOO) ERROR FUNCTION TEST 
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707 


000224 


000167 


01 1 022 


708 








709 




000240 




710 


000240 


012^06 


000500 


711 


000244 


000167 


011112 


712 








713 








7H 








715 




000250 




716 


000250 


012706 


000500 


717 


000254 


000167 


006256 


718 








719 








720 








72^ 








722 




000500 




721 


000500 


000000 




72^ 


000502 


177160 




725 


000504 


177162 




726 


000506 


177164 




727 


000510 


177564 




728 


000512 


177566 




729 


000514 


000002 




730 


000516 


000230 




731 


000520 


000232 




712 


000522 


000000 




733 


000524 


000000 




734 


000526 


000000 




735 


000530 


000000 




736 








717 


000532 


000000 




738 


000534 


000000 




739 


000536 


000000 




740 


000540 


000000 




741 








71^2 








743 


000542 


012767 


000001 


744 


000550 


016703 


177726 


7^,5 


000554 


016704 


177724 


746 


000560 


016705 


\77f22 


7^7 


00056h 


016702 


y77726 


/48 


000570 


016712 


^7772^ 


7t^9 


000574 


005077 


y77720 


750 


000600 


005067 


y77720 


751 


000604 


005067 


^777^^ 


752 


000610 


012767 


000340 


753 


000616 


000207 




754 








755 








756 




001000 




757 








758 








759 








760 








761 


001000 


012767 


001000 


762 


001006 


004767 


177530 
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DEFINITIONS AND VECTOR ASSIG>#CNTS 



SEO 0014 



=240 



MOV 
J/1P 



TESTX 



#STACK. SO 
CKSAME 



.•STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 
.-ANY SINGLE SUBTEST 



STARTING ADDRESS OF TEST TO READ A SINGLE DATA 
PATTERN CONTINUOUSLY 



,=250 



MOV 
JMP 



*STACK, SP 
ER1200 



.-STARTING ADDRESS FOR M-1200 ERROR FUNCTION TEST 



177160 



.LOAD POINTERS AND GENERAL STORAGE 
.=500 
STACK: 0 

COST: 177160 

CDCC: 177162 

CD8A: 177164 

TPS: 177564 

TPS: 177566 



TRTRAP: RTJ 



INTVC : 

COUNT: 
INTFLG: 
TRFLG: 
PROC: 



230 

232 

0 

0 

0 

0 



011664 SETUP: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
RTS 



*1, 
CDST. 
CDCC. 
CD8A, 



ITMAX 
CDS 
CDC 
CDA 



INTVC. ADINT 
INTVC*2.(A0INT) 
8INTVC+2 
INTFLG 
TRFLG 

«40, PS 
X7 



STACK POINTER INITIALIZED TO POINT HERE 
ADDRESS OF CARD READER STATUS REGISTER 
ADDRESS OF CARD READER COLlfW COUNT 
ADDRESS OF CARD READER BUS ADDRESS 
ADDRESS OF TELETYPE STATUS REGISTER 
ADDRESS OF TELETYPE DATA BUFFER 
RETURN FROM TRACE LOOP 
ADDRESS OF CARD READER INTERRUPT VECTOR 



ERFLG: 0 
CKRF : 0 
COUNTG: 0 
CD1000: 0 

.•INITIALIZE CSR AND D8R POINTERS 



USED FOR TIMING. ETC. 

CONTAINS LEVEL THAT INTERRUPT IS FOUND AT 
TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL FLO 
STORES PROCESSOR STATUS WHEN TRACE TRAP MUST BE CLEARED 
IN A SUBTEST 

SET TO ZERO TO OUTPUT DATA ERROR HEADING 

FLAG FOR CHECKERBOARD DECK 

USED AS COUNTER IN TESTG 

M-1200 OR M-IOOO CARD READER DETECTOR 



SET ITERATION MAXIMLH TO 1 ITERATION 
SET UP STATUS REGISTER POINTER 
SET UP COLlfW COUNT REGISTER POINTER 
SET UP BUS ADDRESS REGISTER POINTER 
LOAD ADDRESS OF INTERRUPT VECTOR 
SET ur CD11 TRAP VECTOR 

TO HALT 
INITIALIZE INTERRUPT FLAG 
INITIALIZE TRACE FLAG 
SETUP PROCESSOR STATUS 
RETURN 



.=1000 



011432 BEGIN; MOV *8EGIN. RETURN .SAVE RETURN FOR POWER FAIL 

JSR XT. SETUP .-INITIALIZE POINTERS AND FLAGS 
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763 


001012 


000004 






001016 


000416 




765 


001020 


005767 


1 f fJ\JC 


766 


001 02A 


001004 




767 


001026 


01 2767 




768 


001034 


000407 




769 


001036 


032767 


U lUVAA/ 


770 


001 0A4 


001370 




771 


001046 


012767 


UUU30U 


772 








771 








/74 


001054 


012767 


UU1Uo4 


775 


001062 


104400 




776 


001064 


004767 


ni 1 1 1 A 


777 


001070 


000005 




778 


001072 


022713 




779 


001076 


001401 




780 


001100 


104000 




781 








782 


001 102 


005714 




783 


001104 


001401 




78A 


001106 


104000 




785 








786 


001110 


005715 




787 


001112 


001401 




788 


001114 


104000 




789 








790 


001116 


104400 




791 








792 








793 








79A 


001120 


052713 


1 77X7(\ 


795 


001124 


022713 




796 


001130 


001402 




797 


001132 


104000 




798 


001134 


000413 




799 








800 








801 


001136 


005013 




802 


001140 


022713 


VWcW 


803 


001144 


001401 




80^ 


001146 


104000 




805 








806 








807 


001150 


012713 


1 77777 

\ ( 1 1 1 1 


808 


001154 


022713 


Uwcvv 


309 


001160 


001401 




810 


001162 


104000 




811 








812 


001164 


104400 




813 








8H 


001166 


012714 


\77777 

I t f f 1 1 


815 


001172 


022714 


^77777 


816 


001176 


001401 




817 


001200 


104000 




818 
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LOGIC FUNCTION TESTS 



SEO 0015 



RESTRT: 
176742 NOTRP; 
176524 TRAPX: 



176722 



011356 



TYPE, 

BR 

TST 

BNE 

MOV 

BR 

BIT 

BNE 

MOV 



MS627 
TEST 
TRFLG 
TRAPX 

#340. PS 

TEST 

*10000. SWR 
NOTRP 
#360, PS 



TYPE OUT DIAGNOSTIC IDENTIFICATION 

60 TO INSTRUCTION TESTS 

CHECK FOR TRACE TRAPPING 

IF SET, TRACE TRAP 

IF ZERO. CLEAR TRACE BIT 

60 TO INSTRUCTION TESTS 

CHECK SW12 

BRANCH IF SET TO CLEAR TRACE BIT 
SET TRACE BIT 



.TEST FOR CORRECT INITIALIZATION OF ALL CARD READER RE6ISTERS 



TEST; 
TEST1: 
TEST1A: 



MOV 
SCOPE 
JSR 
RESET 
CMP 
BEO 
HLT 

TST 
BEO 

HLT 

TST 
BEO 
HLT 



#TEST1A,RETURN 



X7. 

#200. 
.+4 



acDc 

.♦4 



aCDA 
.♦4 



CKOFFL 

acDS 



SET 



SETUP SCOPE LOOP RETURN ADDRESS 
SO ALL TESTS START WITH SCOPE 
CHECK FOR OFF-LINE SET 
SEND OUT INIT 

CHECK FOR STATUS RE6ISTER BIT 7 
BRANCH IF OK 

STATUS RE6ISTER NOT CORRECTLY INITIALIZED 

CHECK FOR COLUMN COUNT CLEARED 
BR IF OK 

COLUW COUNT NOT CLEARED BY INIT 

CHECK FOR BUS ADDRESS CLEARED 
8R IF OK 

BUS ADDRESS NOT CLEARED BY INIT 



TEST2: SCOPE 

;TEST THAT ONLY THE PROPER BITS OF THE STATUS RE6ISTER ARE READ/WRITE 

.•ONLY BITS 1.4,5, AND 6 OF THE STATUS RE6ISTER SHOULD BE 

.•ABLE TO BE SET TO ONE AND READ BACK AS ONE 



BIS 
CMP 
BEO 
HLT 
BR 



#177376.aCDS 
#362, aCDS 
.+6 

TEST3 



SET ALL BITS BUT 0 AND 8 
ONLY BITS 1,4,5,6, AND 7 SHOULD BE 
BRANCH IF OK 

STATUS RE6ISTER DIDN'T CONTAIN 362 
BRANCH AFTER FAILURE 



SET 



.•CLEARING STATUS RE6ISTER SHOULD CLEAR BITS 1,4,5, AND 6 



CLR 
CMP 
BEO 
HLT 



acDS 

#200. 
.+4 



aCDS 



CLEAR BITS 1,4,5, AND 6 
CHECK FOR ALL BITS CLEAR BUT 7 
BRANCH IF OK 

STATUS RE6ISTER DIDN'T CONTAIN 200 



.•SETTING ALL BITS SHOULD DO A POWER CLEAR 



MOV 
CMP 
BEO 
HLT 



#177777,aCDS 
#200, aCDS 
.+4 



SET ALL BITS OF THE STATUS REGISTER 
CHECK FOR ALL BITS CLEAR BUT 7 
BRANCH IF OK 

STATUS REGISTER DIDN'T CONTAIN 200 



TEST3: SCOPE 

;TEST THE COLUMN COUNT REGISTER FOR READ/WRITE-ABILITY 
MOV #1 77777. aCDC 
CMP #177777,aCDC 
BEO . +4 
HLT 



LOAD ALL BITS 

TEST TO SEE IF IT CAN BE READ 
BRANCH IF OK 

CDCC FAILED TO READ/WRITE 



CZCDADO CD11 CARD READER DIA6 
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LOGIC FUNCTION TESTS 



SEQ 0016 



819 001202 

820 001206 

821 001210 
822 

823 001212 

824 001216 

825 001220 

826 001222 
827 

828 001 22A 

829 001230 

830 001232 
831 

832 001234 
833 

834 001236 

835 001242 

836 001246 

837 001250 
838 

839 001252 

840 001256 

841 001260 
842 

843 001262 

844 001266 

845 001270 

846 001272 
847 

848 001274 

849 001300 

850 001302 
851 

852 001304 

853 

854 

855 001306 

856 001312 

857 001316 

858 001322 

859 001330 

860 001334 

861 001340 

862 001342 

863 031344 

864 001346 
865 

866 001350 

867 001354 

868 001356 

869 001360 

870 001362 

871 001366 

872 001370 

873 001376 

874 001400 



022713 
001401 
104000 

052713 
005714 
001401 
104000 

022713 
001401 
104000 

104400 

012715 
022715 
001401 
104000 

022713 
001401 
104000 

052713 
005715 
001401 
104000 

022713 
001401 
104000 

104400 



004767 
012714 
012715 
016767 
005067 
005067 
005213 
105713 
100001 
104000 

032713 
001402 
104000 
000421 
005267 
001370 
016767 
105713 
100401 



000200 



000400 



000200 



\77777 
1 77777 



000200 
000400 

000200 



010672 
\77777 
016044 
176450 
176442 
177162 



000001 

177134 
177134 



C«P 
BEQ 
HLT 

BIS 
TST 
BEO 
HLT 

CMP 
BEQ 
HLT 



#200, 
.♦4 



#400. 

acDC 

.♦4 



#200. 
.♦4 



acDs 



acDS 



acDS 



CHECK STATUS REG 
BRANCH IF OK 
STATUS REG CHANGED 

DO A POWER CLEAR 

CHECK FOR COLlfW COUNT CLEARED 

BRANCH IF OK 

COLUMN COUNT NOT CLEARED BY POWER CLEAR 

CHECK STATUS REG 
BRANCH IF OK 
STATUS REG CHANGED 



TEST4: SCOPE 

;TEST THE BUS ADDRESS REGISTER FOR READ/WRITE-A8ILITY 



177200 



LOOPS: 



MOV 
CMP 
BEQ 
HLT 

CMP 
BEQ 
HLT 

BIS 
TST 
BEQ 
HLT 

CMP 
BEO 
HLT 



#1 77777. aCDA 
#177777.aCDA 
.♦4 



#200. 
.♦4 



#400. 

aCDA 

.♦4 



#200. 
.♦4 



aCDS 



acDS 



acDS 



LOAD ALL BITS 
TEST TO SEE IF IT CAN BE READ 
BRANCH IF OK 

CDBA FAILED TO READ/WRITE 

CHECK STATUS REG 
BRANCH IF OK 
STATUS REG CHANGED 

DO A POWER CLEAR 

CHECK FOR BUS ADDRESS CLEARED 

SRAfJCH IF OK 

BUS ADDRESS NOT CLEARED BY POWER CLEAR 

CHECK STATUS REG 
BRANCH IF OK 
STATUS REG CHANGED 



TEST5: 
."START 
;8IT 0 



SCOPE 

SHOULD CAUSE CONTROLLER READY WITHIN ABOUT 1 SECOND 
SHOULD ALWAYS READ AS BEING EQUAL TO ZERO 



1 76400 



JSR 

MOV 

MOV 

MOV 

CLR 

CLR 

INC 

TST8 

BPL 

HLT 

BIT 

BEQ 

HLT 

BR 

INC 

6NE 

MOV 

TSTB 

BMJ 



X7. CKOFFL 
#-1 , aCDC 
#BUFBEG.aCDA 
PS, PROC 

PS 

COUNT 
aCDS 

acDS 

.♦4 



#1. 

.♦6 

TEST6 

COUNT 

LOOPS 

PROC. 

aCDS 

.+4 



acDS 



PS 



CHECK FOR OFF-LINE SET 
SET UP COLlfW COW^T TO READ 1 COLUMN 
SET UP BUS ADDRESS 
STORE CURRENT PROCESSOR STATUS 
CLEAR TRACE BIT 
INITIALIZE COUNTER 
START READING A CARD 
CHECK FOR CONTROLLER READY CLEARED 
BRANCH IF OK 

CONTROLLER READY DIDN'T CLEAR 

CHECK BIT 0 
BRANCH IF NOT SET 
BIT 0 READ AS A ONE 
BRANCH AFTER FAILURE 
WAIT ABOUT 

RESTORE PROCESSOR STATUS 
CHECK CONTROLLER READY 
CONTINUE IF SET 
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117*. 
Of O 




nns7i 




Of f 




IftftOO? 

1 WAA/C 




R7R 

Or O 




104000 






W 1 H 1 C 


000404 


177577 


880 


oouu 


032713 


881 


001A20 


00U01 




OOc 


vU l'*CC 


104000 




M'T 
OO^ 








QQ/ 




104400 




003 








ASA 
Afl7 








OO' 

AAA 

OOO 


001 


004767 


010552 


AAQ 


OOI^'^? 
VA/ 1 •» Jc 


oosni^ 




Aon 


001^*^ 


01P714 


177754 


AQ1 


orti ^^n 


01P715 


016044 


AO? 
ore 


001^^^ 


00SP13 

\AJJC 1 J 




A07 

Otj 


0O1^^^ 


03P71 


000004 


AQ^ 
OTH 


OfJiiS? 
VA/ 1 *f 


001401 








104000 




A<M> 


001 


005067 


1770A0 


AQ7 


001 ^^P 


016767 


1 7631 0 


AQA 


001^70 


005067 


1 76302 




001 4 7A 


105713 






001476 


100405 


1 7701 6 




001500 


005367 


OOP 


001504 


001373 






001 506 


104000 






001510 


000411 


177012 




00151? 


016767 




001520 


105713 






001 522 


100401 






001 524 


104000 














001SP^=i 


005713 




01 1 


0015% 


100001 




01 P 


001 532 


104000 




01*^ 








01 ^ 


001534 


104400 




01 s 








01^ 


001536 


004767 


010376 


017 


001542 


012712 


001626 


01 A 


001546 


052767 


000340 


010 


001554 


016762 


176216 


OPO 


001562 


042767 


000340 


0P1 


001 570 


012714 

vie* 1 ~ 


177741 


OPP 


001574 


012715 

W 1 C * la' 


016044 




001600 


012713 


000101 


92A 


001604 


105713 




925 


001606 


100376 




926 


00161C 


016267 




927 


001616 


042713 


000100 


928 


001622 


104000 




929 


001624 


000410 




930 


001626 


105713 
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SEQ 0017 



HLT 

TST 

BPL 

HLT 

BR 

BIT 

BEQ 

HLT 



aCDS 
.♦6 

TEST6 

*177577.aCDS 



.•CONTROLLER READY DIDN'T SET WITHIN 1 SEC 



.-ERROR BIT SET 

.•CHECK FOR ANY OTHER BITS 
.•BRANCH IF OK 
.EXTRA BIT(S) SET 



TEST6: SCOPE 

; (BIT 2) SHOULD NOT BE SET BY READING A 
;IT SHOULD REMAIN NOT SET 
.•THIS SHOULD HAPPEN WITHIN ABOUT 



CARD 



177040 



176256 



L00P6A: 



L00P6B: 
L0OP6: 



JSR 
CLR 
MOV 
MOV 
INC 
BIT 
BEQ 
HLT 
CLR 
MOV 
CLR 
TSTB 
mi 
DEC 
BNE 
HLT 
BR 
MOV 
TSTB 
BMI 
HLT 



X7,CK0FFL 
aCDS 

#-20. . aCDC 
«BUFBEG.aCDA 

acDS 

/ir4.aCDS 



D0NE6: TST 
BPL 
HLT 



COUNT 
PS. 
PS 
aCDS 
L00P6e 
COUNT 
L0OP6A 

TEST7 
PROC.PS 
aCDS 
D0NE6 



acDS 

.♦4 



PROC 



1 SECOND 

CHECK FOR OFF-LINE SET 
INITIALIZE STATUS REGISTER 
SET UP COLinJ COUNT TO READ 20 COLUMNS 
SET UP BUS ADDRESS 
READ A CARD 
CHECK BUSY 

BUSY SET 

SET UP WAIT COUNTER 
SAVE PROCESSOR STATUS 
CLR THE T BIT 
CHECK READY 
BRANCH IF READY 
WAIT ABOUT 1 SEC. 

READING A CARD DIDN'T SET READY 

RESTORE THE STATUS 
CHECK CONTROLLER READY 
BRANCH IF SET 

RESTORING STATUS RESET READY 

CHECK ERROR BIT 15 

BRANCH IF OK 

ERROR BIT 15 WAS SET 



176222 
000002 
176206 



176160 



TEST7: SCOPE 

.•CONTROLLER READY SHOULD CAUSE AN 
JSR X7. INIT 
*TINT7,aA0INT 
*3A0, PS 
PS, 2(ADINT) 
#3A0. PS 
4r-31 . , acDC 
#BUFBEG.aCDA 

#101. acDS 
acDs 

.-2 

2(ADINT),PS 

ATI 00. acDs 



MOV 
BIS 
MOV 
BIC 
MOV 
MOV 
MOV 
TSTB 
BPL 
MOV 
BIC 
HLT 
BR 

TINT7: TSTB 



C0NT7 
aCDS 



INTERRUPT 
INITIALIZE 
LOAD RETURN POINTER 
SET PROCESSOR TO LEVEL 7 
;LOAD RETURN PROCESSOR STATUS 
SET PROCESSOR PRIORITY TO 0 
SET UP COLl/fJ COUNT TO READ 31 COLUMNS 
SET UP BUS ADDRESS 
SET INTERUPT ENABLE AND READ 
WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 
CLEAR INTERRUPT ENABLE 
NO INTERRUPT OCCURRED 



; CHECK CONTROLLER READY 



CZCDADO CD11 CARD HEADER DIAG 
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931 


001630 


100401 




932 


001632 


104000 




953 


001634 


022626 




954 


001656 


005713 




935 


001640 


100001 




936 


001642 


104000 




937 


001644 


005013 




938 


001646 


012712 


000232 


939 


001652 


005037 


000232 


9<*0 








941 


001656 


104400 




942 








943 








944 


001660 


004767 


010254 


945 


001664 


012712 


001726 


946 


001670 


052767 


000340 


947 


001676 


016762 


176074 


948 


001704 


012714 


177703 


949 


001 710 


012715 


016044 


950 


001714 


012713 


000101 


951 


001720 


105713 




952 


001 722 


100376 




953 


001724 


000402 




954 


001726 


104000 




955 


001730 


022626 




956 


001732 


005013 




957 


001734 


012712 


000232 


958 


001740 


005037 


000232 


959 








960 








961 








962 








963 








964 








965 








966 








967 


001744 


104400 




966 


001746 


004767 


010166 


969 


001752 


012712 


002070 


970 


001 756 


052767 


000340 


971 


001764 


016762 


176006 


972 


001772 


042767 


000340 


973 


002000 


052767 


000300 


974 


002006 


012714 


177660 


975 


002012 


012715 


016044 


976 


002016 


012713 


000101 


977 


002022 


105713 




978 


002024 


100376 




979 


002026 


016267 


000002 


960 


002034 


005013 




981 


002036 


012712 


000232 


982 


002042 


005037 


000232 


983 


002046 


005767 


176452 


964 


002052 


001442 




985 


002054 


026727 


1 76444 


986 


002062 


100436 
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C0NT7: 



mi 

HLT 
CMP 

TST 
BPL 
HLT 
CLR 
MOV 
CLR 



.♦4 

(SP)*, 

acDS 

.*4 



(SP)* 



acDs 

*232-aADINT 

a#23^ 



18 



BRANCH IF SET 
CONTROLLER READY NOT SET 
RESTORE STACK POINTER 
MAKE SURE NO ERROR OCCURRED 

BIT 15 WAS SET 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 



SEO 0018 



176100 
000002 



TEST10: SCOPE 
.•CONTROLLER READY 
;AT LEVEL 7 

JSR 

MOV 

BIS 

MOV 

MOV 

MOV 

MOV 

TSTB 

BPL 

BR 

TINT10; HLT 
CMP 
CLR 
MOV 
CLR 



SHOULDN'T CAUSE 
PRIORITY 

17. mi 
*TINT10,aADINT 
#340. PS 
PS. 2(ADINT) 
#-61 . , aCDC 
#BUFBEG,aCDA 
#101. aCDS 

acDS 

.-2 
.+6 

(SP)+.(SP)* 

acDS 

#232.aADINT 

a#23^ 



AN INTERRUPT IF THE PROCESSOR IS 

INITIALIZE 
SETUP RETURN 

SET PROCESSOR TO LEVEL 7 PRIORITY 

.-LOAD RETURN PROCESSOR STATUS 

SET UP COLUMN COUNT TO READ 61 COLlW^S 

SET UP BUS ADDRESS 

SET INTERRUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

CONTINUE IF NO INTERRUPT OCCURRED 

AN INTERRUPT OCCURRED 

RESTORE STACK POINTER 

CLEAR INTERRUPT ENABLE 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 



FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS 

PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD 
(LEVEL 6) MAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL 
THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE. AND THE PROGRAM MUST 
BE STARTED OVER AT LOCATION 200 FOR IT TO BE PRINTED AGAIN 



176012 
000002 
175776 
175770 



175742 



100007 



.-TEST FOR AN 
TEST11: SCOPE 
JSR 
MOV 
BIS 
MOV 
BIC 
BIS 
MOV 
MOV 
MOV 
TSTB 
BPL 
MOV 
CLR 
MOV 
CLR 
TST 
BEQ 
CMP 
8MJ 



INTERRUPT ON LEVEL 7 



X7. 

#TINT11 

#340. 

PS. 

#340. 

#300, 

#-80.. 

#8UF8EG 

#101. 

acDS 

.-2 

2(ADINT 

acDS 

11212. 

a#23^ 

INTFLG 
TEST12 
INTFLG. 
TEST12 



INIT 
.aADINT 
PS 

2(ADINT) 

PS 

PS 

aCDC 
.aCDA 

acDS 



).PS 
aADINT 

#100007 



INITIALIZE 

SETUP RETURN ADDRESS 

SET PROCESSOR PRIORITY TO 7 

.SETUP RETURN PROCESSOR STATUS 

SET PROCESSOR PRIORITY TO 0 

SET PROCESSOR TO LEVEL 6 PRIORITY 

SET UP COLUMN COUNT TO READ 80 COLUMNS 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOWER 
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SfQ 001^ 



987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 



002064 
002066 
002070 
002072 
002074 
002076 
002100 
002104 
002110 
002112 
002116 
002120 
002126 
002132 
002140 
002144 
002146 
002154 
002156 

002160 
002162 
002166 
002172 
002200 
002206 
0022K 
002222 
002226 
002232 
002236 
002240 
002242 
002250 
002252 
002256 
002262 
002266 
002270 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002320 
002324 
002326 
002332 
002334 
002342 
002346 
002354 
002360 



104000 
000434 
105713 
100401 
104000 
005013 
012712 
005037 
022626 
005767 
100413 
012767 
000004 
012767 
004767 
000405 
026727 
100001 
104000 

104400 
004767 
012712 
052767 
016762 
042767 
052767 
012714 
012715 
012713 
105713 
100376 
016267 
005013 
012712 
005037 
005767 
001442 
026727 
100436 
104000 
000434 
105713 
100401 
104000 
005013 
012712 
005037 
0P2626 
005767 
100413 
012767 
000004 
012767 
004767 
000405 



HLT 
BR 

TINTll: TST8 
BMI 
HLT 
CLR 

000232 MOV 
000232 CLR 

CMP 

176406 TST 

BMI 

100007 176376 MOV 
014062 TYPE. 
000007 010420 MOV 
010460 JSR 

BR 

176352 100007 SET7: CMP 

BPL 
HLT 

;TEST FOR AN 
TEST12: SCOPE 



TPST12 

•CDS 

.♦4 

SCOS 

#232, aADINT 

a»23^ 

(SP)*. (SP)+ 
INTFLG 

SET 7 .-BRANCH 
*100007. INTFLG , 
MSG4 

*7.PRINT1 
I7,PRINTS 
TEST12 

INTFLG. #100007 
TEST12 



.•INTERUPT PREVIOUSLY OCCURRED AT LEVEL 7 OR HIGHER 

.MAKE SU«E CONTROLLER READY IS SET 
.-BHANCH IF SET 

.•CONTROLLER READY WASN'T SET 
.DISABLE FURTHER INTERRUPTS 
.CHANGE INTERRUPT RETURN ADDRESS 
;T0 CAUSE A HALT IF AN INTERRUPT OCCURS 
.-RESTORE STACK POINTER 
.CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
rSET FLAG AND LEVEL 

.-f^RINT MESSAGE 'THE INTERRUPT LEVEL WAS"' 

.-TYPE #7 IN OCTAL 

.-AND SUPRESS LEADING ZERO'S 

.•CHECK PREVIOUS LEVEL 



007752 




JSR 


002304 




MOV 


000340 


175576 


BIS 


175572 


000002 


MOV 


000340 


175562 


BIC 


000240 


175554 


BIS 


177660 




MOV 


016044 




MOV 


000101 




MOV 






TSTB 






BPL 


000002 


175526 


MOV 






CLR 


000232 




MOV 


000232 




CLR 


176236 




TST 






BEO 


176230 


100006 


CMP 






BMI 






HLT 






BR 






TINT12: TSTB 






BMI 






HLT 






CLR 


000232 




MOV 


000232 




CLR 






CMP 


176172 




TST 






BMI 


100006 


176162 


MOV 


014062 




TYPE 


000006 


010204 


MOV 


010244 




JSR 






BR 



.•INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
INTERRUPT ON LEVEL 6 

X7, INIT .-INITIALIZE 
#TINT12.aADINT ;SETUP RETURN ADDRESS 
#340, PS ;SET PROCESSOR PRIORITY TO 7 

PS, 2(ADINT) .-SETUP RETURN PROCESSOR SlATUS 
#340, PS .-SET PROCESSOR PRIORITY TO 0 

#240, PS .-SET PROCESSOR TO LEVEL 5 PRIORITY 

#-80.. aCDC .-SET UP COLlfW COUNT TO READ 80 COLUMNS 
#8UF8EG.aCDA .-SET UP BUS ADDRESS 
#101, aCDS .-SET INTERUPT ENABLE AND READ 
aCDS ;UAIT FOR CONTROLLER READY 

-2 

2(ADINT),PS .-RESTORE PROCESSOR TO HIGHEST PRIORITY 

aCDS .-DISABLE INTERRUPTS 

#232. aADINT .-CHANGE INTERRUPT RETURN ADDRESS 

a#232 ;T0 CAUSE A HALT IF AN INTERRUPT OCCURS 

INTFLG .-TEST FOR A PREVIOUS INTERUPT 

TEST13 .-BRANCH IF NONE 

INTFLG, #100006 .CHECK PREVIOUS LEVEL 

TEST13 .-BRANCH IF LOWER 

.-INTERUPT PREVIOUSLY OCCURRED AT LEVEL 6 OR HIGHER 

TEST13 

aCDS .-MAKE SURE CONTROLLER READiT IS SET 

.♦4 ;8RANCH IF SET 

.CONTROLLER READY WASN'T SET 
.-DISABLE FURTHER INTERRUPTS 
.-CHANGE INTERRUPT RETURN ADDRESS 
;T0 CAU^E A HALT IF AN INTERRUPT OCCURS 
.-RESTORE STACK POINTER 
.-CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
SET FLAG AND LEVEL 

.-PRINT MESSAGE '7HE INTERRUPT LEVEL WAS"' 
.-TYPE #6 IN OCTAL 
.AND SUPRESS LEADING ZERO'S 



aCDS 

#232. aADINT 
a#232 

(SP)+. (SP)* 
INTFLG 

SET6 .-BRANCH 
#100006. INTFLG ; 
MS64 

#6,PRINT1 
X7,PRINTS 
TEST13 
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SEO 0020 



1043 

ms 

1046 

10A7 

1048 

10A9 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

107-: 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1035 

,086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 



002362 
002370 
002372 

002374 
002376 
002402 
002406 
002414 
002422 
002430 
002436 
002442 
002446 
002452 
002454 
002456 
002464 
002466 
002472 
002476 
002502 
002504 
002512 
002514 
002516 
002520 
002522 
C02524 
002526 
002530 
002534 
002540 
002542 
002546 
002550 
002556 
002562 
002570 
002574 
002576 
002604 
002606 

00^610 
002612 
002616 
002622 
002630 
002636 
002644 
002652 
002656 
002662 
002666 
002670 



026727 176136 

100001 

10^.000 



104400 
004767 
012712 
052767 
016762 
042767 
052767 
012714 
012715 
012713 
105713 
100376 
016267 
005013 
012712 
005037 
005767 
001442 
026727 
100436 
104000 
000434 
105713 
100401 
104000 
005013 
012712 
005037 
022626 
005767 
100413 
012767 
000004 
012767 
004767 
000405 
026727 
100001 
104000 

104400 
004767 
012712 
052767 
016762 
042767 
052767 
012714 
012715 
012713 
105713 
100376 



007536 
002520 
000340 
175356 
000340 
000200 
177660 
016044 
000101 



000232 
000232 

1 75756 

100005 
OUOf 
00000^ 
010030 



007322 
002734 
000340 
175142 
000340 
000140 
177660 
016044 
000101 



100006 



175362 
000002 
175346 
175340 



000002 175312 

000232 
000232 
176022 

176014 100005 



175746 
007770 



175722 100005 SETO 



175146 
000002 
175132 
175124 



SET6: CMP 
BPL 
HLT 

.•TEST FOR AN 
TEST13: SCOPE 
JSR 
MOV 
BIS 
MOV 
BIC 
BIS 
MOV 
MOV 
MOV 
TST8 
BPL 
MOV 
CLR 
MOV 
CLR 
TST 
BEQ 
CMP 
8MI 
HLT 
BR 

TINT13; TST8 
BMI 
HLT 
CLR 
MOV 
CLR 
CMP 
TST 
BMI 
MOV 
TYPE. 
MOV 
JSR 
BR 
CMP 
BPL 
HLT 

;TEST FOR AN 
TEST14; SCOPE 
JSR 
MOV 
BIS 
MOV 
BIC 
BIS 
MOV 
MOV 
MOV 
TSTB 
BPL 



INTFLG, #100006 .-CHECK PREVIOUS LEVEL 
TESTIS 



INTERRUPT ON LEVEL S 



■INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 



17. INIT 

#TINT13.aA0INT 

#340. PS 

PS. 2(ADINT) 

#340. PS 

#200. PS 

#-80.. aCDC 

#eUFBEG.9CDA 

#101. 8CDS 

aCDS 

.-2 

2(ADINT).PS 
aCDS 

#232, 9ADINT 
a#232 

INTFLG 
TEST14 

INTFLG. #100005 
TEST14 

TEST14 

aCDS 

.+4 

acDS 

#232. aADINT 
a#232 

(sp;+, (sp)+ 

INTFLG 

SET 5 : BRANCH 
#100005. INTFLG ; 
MSG4 

#5.PRINT1 
X7.PRINTS 
TEST14 

INTFLG. #100005 
TEST14 



INITIALIZE 

SETUP RETURN ADDRESS 

SET PROCESSOR PRIORITY TO 7 

.■SETUP RETURN PROCESSOR STATUS 

SET PROCESSOR PRIORITY TO 0 

SET PROCESSOR TO LEVEL 4 PRIORITY 

SET UP COHm COUNT TO READ 80 COLUMNS 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOWER 

INTERUPT PREVIOUSLY OCCURRED AT LEVEL 5 OR HIGHER 

MAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

CONTROLLER READY WASN'T SET 

DISABLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
SET FLAG AND LEVEL 

PRINT MESSAGE "THE INTERRUPT LEVEL WAS"' 

TYPE #5 IN OCTAL 

AND SUPRESS LEADING ZERO'S 

.•CHECK PREVIOUS LEVEL 



.•INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
INTERRUPT ON LEVEL 4 



17. 

#TINT14 

#340. 

PS. 

#340. 

#140. 

#-80.. 

#BUFBEG 

#101. 

aCDS 

.-2 



INIT ;INITIALIZE 
.aADINT .-SETUP RETURN ADDRESS 
PS ;SET PROCESSOR PRIORITY TO 7 

2(ADINT) .-SETUP RETURN PROCESSOR STATUS 



PS 
PS 
aCDC 
.aCDA 

acDS 



SET PROCESSOR PRIORITY TO 0 
SET PROCESSOR TO LEVI 3 PRIORITY 
SET UP COLifW COUNT TO READ 80 COLUMNS 
SET UP BUS ADDRESS 
SET INTERUPT EN^BLE AND READ 
WAIT FOR CONTRaLER READY 
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seo 0021 



1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

111A 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

113A 

1135 

1136 

1137 

1138 

1139 

1K0 

1K1 

1K2 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 



002672 
J02700 
002702 
002706 
002712 
002716 
002720 
002726 
002730 
002732 
002734 
002736 
002740 
002742 
002744 
002750 
002754 
002756 
002762 
002764 
002772 
002774 
003002 
003004 

003006 
003010 
003014 
003020 
003026 
003034 
003042 
003050 
003054 
003060 
003064 
003066 
003070 
003076 
003100 
003104 
003110 
003114 
003116 
003124 
003126 
003130 
003132 
003134 
003136 
003140 
003142 
003146 
003152 
003154 
003160 



016267 
005013 
012712 
005037 
005767 
001433 
026727 
100427 
104000 
000425 
105713 
100401 
104000 
005013 
012712 
005037 
022626 
005767 
100404 
012767 
000405 
026727 
100001 
1040C0 

104400 
004767 
012712 
052767 
016762 
042767 
052767 
012714 
072715 
012713 
105713 
100376 
016267 
005013 
012712 
005037 
005767 
001442 
026727 
100436 
104000 
000434 
105713 
100401 
104000 
005013 
012712 
005037 
022626 
005767 
100413 



000002 175076 

000232 
000232 
175606 

175600 10000^ 



000232 
000232 

175542 

100004 

175524 



007124 
003132 
000340 
174744 
000340 
000100 
177660 
016044 
000101 



000232 
000232 

1 75344 



175532 
100004 



174750 
000002 
174734 
174726 



000002 174700 

000232 
000232 
175410 

175402 100003 



nov 

CLR 

nov 

CLR 
TST 
BEO 
CMP 
BMJ 
HLT 
BR 

TINT14: TST8 
BMI 
HLT 
CLR 
MOV 
CLR 
CMP 
TST 
BMI 
MOV 
BR 

SET4: CMP 

8PL 
HLT 

;TEST FOR AN 
TEST15: SCOPE 
JSR 
MOV 
BIS 
MOV 
BIC 
BIS 
MOV 
MOV 
MOV 
TST8 
8PL 
MOV 
CLR 
MOV 
CLR 
TST 
BEQ 
CMP 
BMI 
HLT 
BR 
TSTB 
BMI 
HLT 
CLR 
MOV 
CLR 
CMP 
TST 
BMI 



2(ADINT).PS 
iCDS 

*232. aADINT 

a*23^ 

INTFLG 
TESTIS 

INTFLG, *100004 
TESTIS 



RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT H AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOWER 

INTERUPT PREVIOUSLY OCCURRED AT LEVEL 4 OR HIGHER 



TESTIS 

aCDS .MAKE SURE CONTROLLER READY IS SET 

.♦4 .-BRANCH IF SET 

CONTROLLER READY WASN'T SET 
aCDS ;DISABLE FURTHER INTERRUPTS 

#232. 8ADINT .-CHANGE INTERRUPT RETURN ADDRESS 
a*232 ;T0 CAUSE A HALT IF AN INTERRUPT OCCURS 

(SP)*. (SP)+ .-RESTORE STACK POINTER 
INTFLG .CHECK FOR PREVIOUS FLAG 

SET4 .BRANCH IF FLAG SET 

SET FLAG AND LEVEL 



#100004. INTFLG ; 
TESTIS 
INTFLG. #100004 
TESTIS 



INTERRUPT ON LEVEL 5 



.-CHECK PREVIOUS LEVEL 
INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 



TINT15: 



X7, INIT 
#TINT15. aADINT 
#340. PS 
PS. 2(ADINT) 
#340. PS 
#100. PS 
#-80. , aCDC 
#8UFBEG.aCDA 
#101, aCDS 

acDS 

.-2 

2(ADINT) 

acDS 

#232- 
a#232 

INTFLG 
TEST16 
INTFLG. 
TEST16 

TEST16 
aCDS 

aCDS 

#232, aADINT 
a#23^ 

(SP)+, (SP)* 
INTFLG 

SET3 ; BRANCH 



.PS 

aADINT 
#100003 



INITIALIZE 

SETUP RETURN AiDDRESS 

SET PROCESSOR PRIORITY TO 7 

.•SETUP RETURN PROCESSOR STATUS 

SET PROCESSOR PRIORITY TO 0 

SET PROCESSOR TO LEVEL 2 PRIORITY 

SET UP COLLMN COUNT TO READ 80 COLlfWS 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTEfiRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERUPT 

BRANCH IF N0^€ 

CHECK PREVIOUS LEVEL 

BRANCH IF LOWER 

INTERUPT PREVIOUSLY OCCURRED AT LEVEL 3 OR HIGHER 

MAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

CONTROLLER READY WASN'T SET 
DISABLE FURTHER INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS 
TO CAUSE A HALT IF AN INTERRUPT OCCURS 
RESTORE STACK POINTER 
CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
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SEO 0022 



1 1 J J 


UUj I Oc 


ni P7A7 

U 1 CI Of 


innoft'? 

1 WW J 


1 f J JJH 




MOV 


#100003 INTFLG - 


1 1 JO 


0031 70 




ni AftA? 

U 1 hUOc 






TVPF 




1 1 J' 


ArtTI 7Z. 


ni 57A7 




n07T5A 

Wf JJO 




IWIl/ 


ir? MfMT1 


1 1 JO 


(v»'??n? 


ftftZ.7A7 
VA^» 0» 


007^1 A 
UUf •» 1 o 








X7,PRINTS 


1 1 JT 












RR 

Of% 


TFST16 


1 loU 




n3A757 


1 r 3J 1 yj 


mono'? 


OC 1 J • 


rMP 


INTFl #100003 


1 1 ^1 


ftft751 A 
KAJjc lO 


1 <VWV)1 








RPI 


TF^T16 


1 1 
















1 1 










FOR AN 


INTFRRIPT ON 1 FVFL 


1 1 A/. 












• iJCVfl c 


17, INIT 


1 1 

1 1 0 J 


ftft'^??^. 


(VU.7A7 
VA/*» / Of 


nnA7i n 






I^R 

Jon 


1 1 

1 lOO 


nn7?v> 


ni ?7i ? 


vvjJ*fO 








#TTNT16 SADTNT 


1 1 A7 

1 1 O r 




n5?7A7 

U Jc f Of 


oon'^n 


17i55i 




RTS 


#340. PS 


1 1 AA 
1 1 OO 


(V^T?A? 


01 A7A? 
U 1 Of Oc 


1 7^53n 

1 f Hjjyj 


nnnnn? 




MOV 


PS ?(ADINT) 


1 1 AQ 

' 1 0" 


\AJJC J\J 


06?767 

f Of 


000340 


174520 






#340 PS 


1 1 70 


fJft^PSA 


n5?7A7 

JC f Or 




17/ SI? 




BIS 


#040 PS 

WW V~ V ^ r J 


1 1 71 

1 1 r I 




01 ?71A 

V 1 Cf 1 


177^0 

Iff OOv 






MOV 


#-80 aCDC 
#BUFfiEG aCDA 


117? 


0O'^?70 


01?715 

W 1 Cf 1 J 


01 AO^^ 






MOV 


117'^ 


no^?74 


01?71 5 


000101 

Wv 1 V 1 






MOV 


#101 acDS 
acDS 


117^ 


VA/J JWV 


10571 3 








TSTB 


1 1 7S 
1 1 f J 


VA/J JV/C 


1 o 








BPI 




n 7A 






00000? 


1 74464 




MOV 


?(ADINT) PS 


1 1 77 

lift 


00^31? 


00501? 








CLR 


SCDS 


1 1 r O 


00^^14 


()1P71? 


000??? 






MOV 


/lf?3? SAO I NT 


1 1 79 

1 1 f T 




0050^7 


000??? 






fLR 


a#23? 






00S767 


175174 






TST 


INTFLG 


1 181 


003^30 


00144? 








BEQ 


TEST17 


lift? 


00333? 


0?67?7 


175166 


1 00002 




CMP 


INTFLG #100002 


1 1fi^ 




100<i36 










TFST17 






10^000 








HLT 




1 las 




000434 








BR 

or* 


TEST17 


1 18/> 


003346 


105713 






TIWTIA 

1 A 1 V 1 I W 


• TSTB 


aCDS 


1 187 


003550 


100401 








BMI 




1 1 AA 


no35S? 

\nJJJJC 


104000 








HLT 

rib I 




1 1 AQ 

1 1 07 


003354 


005013 








CLR 


acDS 


1 190 


003356 


01 ?71 ? 


000232 

WVb 






MOV 


#23? aADINT 


11Q1 


00336? 


005037 


00023? 






CLR 


a#23^ 


119? 


003366 


0??6?6 








CMP 


(SP)+ (SP)+ 
INTFLG 




00^370 


005767 


1 751 30 






TST 


119^ 


003374 


100413 








BMI 


SET2 'BRANCH 


HQS 


003376 


01?767 


10000? 

1 w\/vc 


175120 




MOV 


#100002 INTFLG • 


1 196 


003404 


000004 


014062 






TYPE 


nSG4 


1197 

1 IT* 


003410 


012767 


000002 


007142 




MOV 


#2 PRINT1 


1 198 


003416 


004767 


007202 

w* cvc 






JSR 


17 PRINTS 


1 199 


0034?? 


000405 








BR 


TEST17 


1?00 

1 CV/V/ 


0034?4 


0?67?7 


1 75074 


10000? 

1 wwt 


SET?- 


CMP 


INTFLG #100002 


1?01 


003432 


100001 








BPL 


TEST17 


1?0? 


003434 


104000 

1 wv 








HLT 




i?o? 










• TEST 


FOR AM 


INTERRUPT ON LEVEL 


1204 


003436 


104400 






TEST17 


: SCOPE 




1205 


003440 


004767 


006474 






JSR 


17, INIT 


1206 


003444 


012712 


003544 






'10V 


#TINT17,aADINT 


1207 


003450 


052767 


000340 


174320 




BIS 


#340. PS 


1208 


003456 


016762 


174314 


000002 




MOV 


PS. 2(A0INT) 


1209 


005464 


042767 


000340 


1 74304 




BIC 


#340. PS 


1210 


003472 


052767 


000000 


1 74276 




BiS 


#000. PS 



.PRINT MESSAGE 'THE INTERRUPT LEVEL WAS" 
.-TYPE #3 IN OCTAL 
:AND SUPRESS LEADING ZERO'S 



INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 



INITIALIZE 

SETUP RETURN ADDRESS 

SET PROCESSOR PRIORITY TO 7 

.•SETUP RETURN PROCESSOR STATUS 

SET PROCESSOR PRIORITY TO 0 

SET PROCESSOR TO LEVEL 1 PRIORITY 

SET UP COLlfW COUNT TO READ 80 COLLINS 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF Hi INTERRUPT OCCURS 

TEST FOR A PREVIOUS INTERUPT 

BRANCH IF NONE 

CHECK PREVIOUS LEVEL 

BRANCH IF LOWER 

INTERUPT PREVIOUSLY OCCURRED AT LEVEL 2 OR HIGHER 

MAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

CONTROLLER READY WASN'T SET 

DiSABlE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
SET FLAG AND LEVEL 

.PRINT MESSAGE 'THE INTERRUPT LEVEL WAS" 

;TYPE #2 IN OCTAL 

.AND SUPRESS LEADING ZERO'S 

.-CHECK PREVIOUS LEVEL 

.•INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
1 

.•INITIALIZE 

.SETUP RETURN ADDRESS 

.SET PROCESSOR PRIORITY TO 7 

.•SETUP RETURN PROCESSOR STATUS 
;SET PROCESSOR PRIORITY TO 0 
;SET PROCESSOR TO LEVEL 0 PRIORITY 
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23 



SEO 0023 



1211 

1212 

1213 

12K 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

122^ 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123« 

1235 

1236 

1237 

1238 

1239 

1240 

12A1 

1242 

12A3 

12AA 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 



003500 
003504 
003510 
003514 
003516 
003520 
003526 
003530 
003554 
003540 
003542 
003544 
003546 
003550 
003552 
003554 
003560 
003564 
003566 
003572 
003574 
003602 
003606 
003614 
003620 
003622 
003630 
003632 



012714 

012715 

012713 

105713 

100376 

016267 

005013 

012712 

005037 

104000 

000434 

105713 

100401 

104000 

005013 

012712 

005037 

022626 

005767 

100413 

012767 

000004 

012767 

004767 

000405 

026727 

100001 

104000 



003634 104400 



003636 
003642 
003646 
003654 
003662 
003666 
003672 
003676 
003702 
003706 
003712 
003714 
003722 
003724 
003726 
003730 
003732 
003734 
003740 



004767 
012712 
052767 
016762 
005067 
012714 
012715 
012713 
005067 
005267 
001375 
016267 
005013 
000403 
104000 
022626 
005013 
005037 
012712 



003744 104400 



177660 
016044 
000101 



000002 174250 



000232 
000232 



000232 
000232 

174 732 

100001 174722 
014062 

000001 006744 
007004 

174676 100001 



006276 
003726 

000340 174122 
174116 000002 
174110 

Mmi 

016044 
000100 
174614 
174610 

000002 174054 



003746 
003752 
003756 



^7hl 
012712 
052767 



000232 
000232 



006166 
004016 

000340 174012 



NOV 
MOV 
MOV 

TST8 

BPL 

MOV 

CLR 

MOV 

CLR 

HLT 

BR 

TINT17: TST8 
BMI 
HLT 
CLR 
MOV 
CLR 
CMP 
TST 
BMI 
MOV 
TYPE, 
MOV 
JSR 
BR 

SET1: CMP 

BPL 
HLT 

TEST20: SCOPE 
;TEST FOR NO 
JSR 
MOV 
BIS 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
INC 
BNE 
MOV 
CLR 
BR 

TINT20: HLT 
CMP 
CLR 

C0NT20: CLR 
MOV 



#-80., aCDC 
iieuFBECaCDA 

#101, acDs 

9CDS 
.-2 

2(ADINT),PS 

acDS 

#232. aADINT 

a#23^ 

TEST20 

acDS 

.♦4 

acDs 

#232, aADINT 

a#232 

(SP)+. (SP)+ 
INTFLG 

SET1 .-BRANCH 
#100001. INTFLG ; 
MS64 

#1 .PRINTI 
)!7,PRINTS 
TEST20 

INTFLG, #100001 
TEST20 



SET UP COLLMN COUNT TO READ 80 COLlfWS 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

WAIT FOR CONTROLLER READY 

RESTORE PROCESSOR TO HIGHEST PRIORITY 

DISABLE INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

INTERUPT DIDN'T OCCURE WITH PROCESSOR AT LEVEL 0 

MAKE SURE CONTROLLER READY IS SET 
BRANCH IF SET 

CONTROLLER READY WASN'T SET 

DISABLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS 

TO CAUSE A HALT IF AN INTERRUPT OCCURS 

RESTORE STACK POINTER 

CHECK FOR PREVIOUS FLAG 
IF FLAG SET 
SET FLAG AND LEVEL 

PRINT MESSAGE 'THE INTERRUPT LEVEL WAS"' 

TYPE #1 IN OCTAL 

AND SUPRESS LEADING ZERO'S 

.-CHECK PREVIOUS LEVEL 

.•INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 



INTERRUPT OC CURING 
XT. INIT 
#TINT20, 
#340, PS 
PS. 2(ADINT) 
PS 

#-1 , acoc 

#8UFBEG,aCDA 
#100. aCDS 
COUNT 
COUNT 
.-4 

2(ADINT).PS 

acDS 

CONT20 

(SP)+. (SP)+ 

acDs 
a#232 

#232, aADINT 



WITH INTERRUPT ENABLE SET AND REST CLEARED 
.•INITIALIZE CSR TO ZERO 
aADINT .-SETUP RETURN ADDRESS 
.-SET PROCESSOR TO LEVEL 7 

.•STORE PROCESSOR STATUS 
.-SET PROCESSOR TO LEVEL 0 
;SET UP COLLMN COUNT TO READ 1 COLUMN 
.SET UP BUS ADDRESS 
.•ENABLE INTERRUPTS 
.•INITIALIZE COUNTER 
;WAIT AWHILE 

.RESTORE PROCESSOR TO LEVEL 7 
.-DISABLE FURTHER INTERRUPTS 

AN INTERRUPT OCCURRED 

RESTORE STACK 

DISABLE FURTHER INTERRUPTS 

CHANGE INTERRUPT RETURN ADDRESS TO 

CAUSE A HALT IF AN INTERRUPT OCCURS 



TEST21: SCOPE 

.-CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE LEVEL 
JSR 17. INIT .-INITIALIZE CSR TO ZERO 
MOV #TINT21. aADINT .-SETUP RETURN ADDRESS 

BIS #340, PS ;SET PROCESSOR TO LEVEL 7 
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SEO 0024 



267 003764 

268 003772 

269 004000 

270 004004 

271 004010 

272 004014 

273 004016 

274 004020 

275 004024 

276 004030 

277 004032 

278 004040 

279 004042 

280 004044 

281 004046 

282 004050 

283 004054 
284 

?85 004060 
286 

287 004062 

288 004066 

289 004072 

290 004100 

291 004106 

292 004114 

293 004120 

294 004124 

295 004130 

296 004132 

297 004134 

298 004140 

299 004144 

300 004146 

301 004150 
302 

303 004152 

304 004154 

305 004156 
306 

307 004160 

308 004164 

309 004166 
310 

311 004170 

312 004174 

313 004176 
314 

315 004200 

316 004204 

317 004206 
318 

319 004210 

320 004214 

321 004216 
322 



016762 
042767 
012714 
012715 
012713 
000777 
022626 
012712 
005067 
000240 
016267 
000402 
022626 
104000 
005013 
005037 
012712 

1 04400 

004767 
012712 
052767 
016762 
042767 
012714 
012715 
012713 
000777 
022626 
005037 
012712 
105713 
100401 
104000 

005713 
100401 
104000 

032713 
001001 
104000 

032713 
001001 
104000 

032713 
001001 
104000 

032713 
001401 
104000 



174006 
000340 
M7777 
016044 
000101 



004042 
1 73746 



006052 
004132 
000340 
173672 
0003A0 
1 7777Z 
160000 
000161 



000232 
000232 



001000 
000040 
000020 
076417 



000002 
173776 



000002 1 73736 



000232 
000232 



nov 

BIC 

nov 

MOV 
HOV 

BR 

TINT21: CfV> 
MOV 
CLR 
NOP 
MOV 
BR 

TINA21: CMP 
HLT 

C0NT21: CLR 
CLR 
MOV 



PS. 2(ADINT) 
#340. PS 
#-1 , aCDC 
«BUFBEG.aCDA 
#101. aCDS 

(SP)*, (SP)* 
#TINA21 .aADINT 
PS 

2(ADJNT),PS 
C0NT21 

(SP)*, (SP)* 

aCDS 
a#232 

#232. aADINT 



TEST22: 
.•CHECK 



SCOPE 

THAT NtJN-EXISTANT MEMORY 



173676 
000002 
173662 



TINT22: 



JSR 

MOV 

BIS 

MOV 

BIC 

MOV 

MOV 

MOV 

BR 

CMP 

CLR 

MOV 

TSTB 

BMI 

HLT 

TST 
BMI 
HLT 

BIT 
BNE 
HLT 

BIT 
BNE 
HLT 

BIT 
BNE 

HLT 

BIT 
BEO 
HLT 



X7. INIT 
#TINT22. aADINT 
#340, PS 
PS. 2(ADINT) 
#340, PS 
#-5, aCDC 
#1 60000. aCDA 
#161. aCDS 



(SP)+. 

^252 

M252. 

aCDS 

.♦4 



acos 

.♦4 



(SP)* 
aADINT 



#1000, acDS 

.♦4 



#40, 
.♦4 



acDS 



#20, aCDS 
.♦4 



#07641 7,aCDS 
.♦4 



.•STORE PROCESSOR STATUS 

SET PROCESSOR TO LEVEL 0 

SET UP COLLMN COUNT TO READ 1 COLUMN 

SET UP BUS ADDRESS 

SET INTERUPT ENABLE AND READ 

UAIT FOR INTERRUPT 

RESTORE STACK POINTER 

CHANGE RETRUN ADDRESS 

SET PROCESSOR TO LEVEL 0 

UAIT 

RESTORE PROCESSOR TO LEVEL 7 
RESTORE STACK 

THE INTERRUPT OCCURRED AT 2 LEVELS 
DISABLE INTERRUPTS 
CHANGE INTERRUPT RETURN ADDRESS TO 
CAUSE A HALT IF AN INTERRUPT OCCURS 



IS DETECTED PROPERLY 
INITIALIZE CSR TO ZERO 
SETUP RETURN ADDRESS 
SET PROCESSOR TO LEVEL 7 
.STORE PROCESSOR STATUS 
SET PROCESSOR TO LEVEL 0 
SET UP COLlfW COUNT TO READ 1 COLUMN 
SET UP BUS ADDRESS TO NON-EXISTANT MEMORY 
SET INTERUPT ENABLE AND READ. X MEM BITS SET 
UAIT FOR INTERRUPT 
RESTORE STACK 

CHANGE INTERRUPT RETURN ADDRESS TO 
CAUSE A HALT IF AN INTERRUPT OCCURS 
CHECK FOR CONTROLLER READY 
BRANCH IF SET OK 
CONTROLLER READY DIDN'T SET 

CHECK FOR ERROR (BIT 15) 
BRANCH IF SET OK 
ERROR BIT 15 NOT SET 

CHECK FOR NON-EXISTANT MEMORY (BIT 9) 
BRANCH IF SET OK 
BIT 9 NOT SET 

CHECK FOR EXTENDED MEMORY BIT 17 SET 

BRANCH IF SET OK 

EX-MEM BIT 17 GOT CLEARED 

CHECK FOR EX-MEM (BIT 4) 

BRANCH IF SET OK 

EX-MEM (BIT 4) GOT CLEARED 

CHECK FOR ANY OTHER BITS 

BRANCH IF OK 

EXTRA ERROR BITS SET 



CZCDADO CD11 
CZCDA0.P11 



CARD READER DIAG 
26-MAR-80 11:18 



H 2 

MACni 30A{1052) 26-«AR-80 11:21 PAGE 
LOGIC FUNCTION TESTS 



1323 

1324 

1325 

1326 

1327 

1328 

1329 

1350 

1331 

1332 

1333 

133A 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

137S 

1376 

1377 

1378 



004220 
004224 
004226 

004250 
004234 
004236 



004240 
004242 
004250 
004252 
004256 
004262 



004266 
004272 
004276 
004302 
004310 
004312 
004320 
004326 
004334 
004336 
004344 
004352 
004360 
004364 
004366 
004374 
004376 
004404 
004406 
004414 



004420 
004424 
004432 
004440 
004444 
004450 



022715 
001401 
104000 

022714 
001401 
104000 



104400 
032767 
001 4 J6 
004767 
005167 
000167 



005067 
005067 
005067 
032767 
001412 
012767 
012767 
012767 
000411 
012767 
012767 
012767 
005767 
001004 
012767 
000407 
032767 
001370 
012767 
004767 



012712 
042767 
016762 
016701 
012700 
012767 



160002 



177774 



CMP 

BEQ 
HLT 

CMP 

BEO 

HLT 



#1 60002, aCOA 
.♦4 



*-4, 
.♦4 



acDc 



25 



CHECK ADDRESS BUFFER 

BRANCH IF OK 

BUS ADDRESS REG CHANGED 

CHECK COLUMN COUNT REG 

BRANCH IF OK 

COLUMN COUNT REG CHANGED 



SF.Q 0025 



000200 173320 

005710 
1 74244 
174532 



002236 
002230 
1 74230 
000020 

013330 
013570 
015133 

012750 
013210 
015122 
174142 

000340 

010000 

000360 
005520 



004552 
000340 
173340 
002056 
016044 
177660 



173260 

002202 
002176 
001632 

002156 
002152 
001606 



173402 
173164 
173362 



173344 
000002 



002032 



.•CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL 
.OTHERWISE GO INTO THE DATA TEST 



ENDCK: 



SCOPE 
BIT 
BEQ 
JSR 
COM 
JMP 



#200. SUR 
DATST 
X; .BELL 
JhfLG 
RESTRT 



.•TOGGLE TRACE FLAG 



rDATA RELIABILITY TEST FOR CD11 



; CHECK 
DATST: 



ALP1 : 

CONTD: 
N0TRP1 
TRP1 : 

DCNT1 : 



SWR FOR 
CLR 
CLR 
CLR 
BIT 
BEQ 
MOV 
MOV 
MOV 
BR 
MOV 
MOV 
MOV 
TST 
BNE 
MOV 
BR 
BIT 
BNE 
MOV 
JSR 



TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS 



CLCNT 
CDCNT 
ERfLG 

#20, SWR 
ALPl 

4IBINCD. TSTART 
«BINEND*2,TEND 
«MSG15, DECK 
CONTD 

#ALPCD, TSTART 

*ALPEN0*2.TEND 

/mS614, DECK 

TRFLG 

TRP1 

#340, PS 
DCNT1 

#10000, SWR 
N0TRP1 
#360, PS 
X7. INIT 



MAKE SURE COLIMN COUNT IS ZERO 
SETUP CARD COUNT TO ENTER DATA TABLE AT BEGIFMINC 
FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
CHECK BIT 4 OF SUR FOR TYPE OF DECK 
BRANCH IF NOT SET TO LOAD ALPHANLMERIC POINTERS 
BIT 2 SET, LOAD BINARY TABLE POINTERS 



;BRANCK AROUND ALPHANllCRIC POINTERS 
.-LOAD ALPHANlfCRIC lABLE POINTERS 



CHECK TRACE TRAP FLAG 
BRANCH IF FLAG WAS SET 
CLEAR TRACE BIT 

CHECK SW12 TO INHIBIT TRACE TRAPPING 
BRANCH IF SET 
SET TRACE BIT 

INITIALIZE CARD READER STATUS REGISTER 



.■SET UP INTERRUPT SERVICING, AND START READING 



MOV 
BIC 
MOV 
MOV 
MOV 
MOV 



#SRVC. aAOINT .-SETUP RETURN POINTER 
#340. PS ;S£T PROCESSOR TO LEVEL 

PS, 2(ADINT) ;STORE CURRENT STATUS 



TSTART, R1 
#8UF8EG.R0 
#-120, SIZE 



SET UP TABLE POINTER 
SET UP BUFFER POINTER 
SET UP "SIZE" 



CZCDAIK) con CARD READER DIAG 
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DATA RELIABILITY TEST 



26 



EO 0026 



1579 

1380 

1381 

1382 

1383 

138A 

1585 

1386 

1587 

1388 

1589 

1390 

1591 

1592 

1595 

1594 

1595 

1596 

1597 

1598 

1599 

KOO 

U01 

K02 

K05 

U04 

K05 

K06 

K07 

U08 

K09 

K10 

K11 

K12 

U15 

UK 

K15 

U16 

K17 

K18 

U19 

U20 

K21 

K22 

U25 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1455 

1454 



0O^'.S6 
004464 
004470 
004472 
004476 
004504 
004506 
004514 
004516 
004522 
004524 
004530 
004552 
CO*,'; 36 
004^42 
004544 
004550 



004552 
004554 
004556 
004560 
004564 
004566 

004572 
004576 
004600 
004602 
004604 

004606 
004612 
004620 
004626 
004632 
004634 

004636 
004644 
00<»646 
004650 
004654 
004656 
004662 
004666 
004670 
004674 
004702 
004704 
004710 
004712 

004714 
004720 



012767 
016714 
010015 
012713 
032767 
001406 
032737 
001002 
004767 
005213 
052 n 5 
001 775 
011467 
052715 
001575 
005067 
000765 



105715 
100401 
104000 
052715 
001402 
000167 

052715 
001157 
005714 
001401 
104000 

010067 
166767 
166767 
026715 
001401 
104000 

016767 
022021 
001055 
020167 
100402 
P16701 
005267 
001412 
005267 
026727 
001560 
004767 
005721 
000754 

004767 
005721 



177660 


002026 




nov 


#-120. 


OFFSET 




002020 






nov 


SIZE. 


aCDC 


SET UT COLLMN COUNT 






liOV 


RO- 
#100. 


aCDA 


SET UP ADDRESS REG 


000100 






nov 


acDS 


ENABLE INTERUPTS 


000010 


1<'5n64 




BIT 


#10. 


SWR 


•CHECK FOR PACK MODE ON.r 






BEQ 


CDREAD 




-BRANCH IF NOT SET 

■CHECK FOR IMAGE MODE ONLY 




177570 




BIT 


#4, 


a#swR 






6NE 


CDREAD 




BRANCH IF SET 


001572 






JSR 


X7. 


PAKSET 


•SET UP FOR PACK If J6 MODE 






CDREAD: 


INC 


aCDS 




•READ 


004000 




BKGND: 


BIT 
BEQ 


#4000. 
BKGND 


acDs 


•CHECK FOR DATA ERROR 


001776 






MOV 


aCDC. 


DERCNT 


•SAVF THE COLl^ CO"JNT 


004000 




BKGNDl: 


BIT 


#4000. 


acDs 


; CHECK FOR DATA ERROR 






BNE 


BKGNDl 




;BRANCH IF SET 


001764 






CLR 
BR 


DERCNT 
BKGND 




;CLR COLUMN COUNT «:AVER 



000002 
000470 
177477 



001702 
001672 
001664 
001662 



.•INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TESi 
SRVC: 



ISR: 



001674 
001666 



001646 173656 ISRNC: 



001650 

001640 
173634 

001634 

001630 000120 
001402 



001372 



ISRBE: 



TSTB 


acDS 




CHECK CONTROLLER READY 


BMJ 






BRANCH IF SET 


HLT 






CONTROLLER READY NOT SET 


BIT 


#2. 


acDs ! 


CHECK FOR DATA PACK MODE 


DEQ 


ISR 




BRANCH IF IMAGE MODE 


JMP 


PSR 




Jiff TO PACK MODE ROUTINE 


BIT 


#1 77477. aCDS 


CHECK ALL BITS EXCEPT 6 AND 7 


BNE 


ISRER 




-BRANCH TO ERROR ROUTINE 




aCDC 






BEQ 


.•^4 




-BRANCH IF OK 


HLT 






-COLLMN COUNT REGISTER NOT 0 


MOV 


RO, 


BUFEND 




SUB 


SIZE. 


BUFEND 




SUB 


SIZE, 


BUFEND 




CMP 


BUFEND. 


aCDA 




BEQ 


.♦4 






HLT 








MOV 


SIZE. 


COUNT 


•SET UP COLLfW COUNTER 


CMP 


(RO)-*-. 


(Rl)-^ 


•TEST THE DATA 


BNE 


ISRDE 




•BRA^JCH IF DATA ERROR 


CMP 


R1. 


TEND 


; CHECK FOR END OF TABLE 


BMI 


.•^6 




;BRANCH IF NOT 


MOV 


TSTART, 


R1 


•MOVE POINTER TO TOP OF TABLE 


INC 


COUNT 




; CHECK FOR END OF BUFFER 


BEO 


ISRBE 




;BRANCH IF BUFFER END 


INC 


CLCNT 




•KEEP TRACK OF COLl#WS 


CMP 


CLCNT. 


#120 


; CHECK FOR END OF CARD 


BNE 


ISHLP 




;SRANCH IF NOT END OF CARD 


JSR 


X7, 


NXCRD 


;INC TO NEXT CARD 


TST 


(RD* 




; UPDATE TABLE POINTER FOR NEXT 


BR 


ISRLP 






JSR 


17. 


NXCRD :G0 TO NEXT CARD 


TST 


(Rl) + 







CZCDAW) con CARD READER DJAG 
CZC0AD.P11 26-«AR-80 11 :18 



B 3 

nACm 3OA(1052) 26-«AR-80 11:21 PAGE 27 
DATA RELIABILITY TEST 



SEO 0027 



1455 


004722 


032^67 


000004 


172640 




an 


#4. 


SUR 


K36 


004730 


001002 








BNE 


ISRNXI 




K57 


004732 


004767 


001156 






JSR 


17. 


PARSE T 


U38 


004736 


000167 


001066 




ISRNXI 


: JMP 


SRETRN 




U39 


















H40 










.DATA ERROR WAS DETECTED. OUTPl 


K41 


004742 


005767 


001560 




ISRDE: 


TST 


CDCNT 




KA2 


004746 


001045 








BNE 


ISRD2 




K43 


004750 


00574 J 






ISRD1 : 


TST 


-(RO) 




U44 


004752 


005267 


001550 






INC 


CDCNT 




U4b 


004756 


022021 








C«P 


(RO)*, 


(PD* 


1446 


004760 


001031 








BNE 


1$ 




1447 


004762 


062701 


000042 






ADD 


#42. 


Rl 


1448 


004766 


020167 


001532 






CMP 


Rl. 
2$ 


TEND 


1449 


004772 


003402 








BLE 




1450 


004774 


162701 


000240 






SIB 


#240, 


Rl 


1451 


005000 


026011 


0000^.2 




2S: 


CMP 


42 (RO). 


(Rl) 


1452 


005004 


001010 








BNE 


3$ 




1453 


005006 


162701 


000042 






SUB 


#42, 


Rl 


1454 


005012 


020167 


001504 






CMP 


Rl, 


TSTART 


1455 


005016 


003314 








BGT 


ISRRT 




1456 


005020 


062701 


000240 






ADD 


#240, 


Rl 


1457 


005024 


000711 








BR 


ISRRT 




1458 


















1459 


005026 


162701 


000042 




3$: 


SUB 


#42. 


Rl 


1460 


005032 


020167 


001464 






CMP 


Rl. 


TSTART 


1461 


005036 


003002 








BGT 


IS 




1462 


005040 


062701 


000240 






ADD 


#240. 


Rl 


1463 


005044 


020167 


001454 




1$: 


CMP 


Rl. 


TEND 


1464 


005050 


001337 








BNE 


ISRDl 




1465 


005052 


016701 


001444 






MOV 


TSTART. 


Rl 


1466 


005056 


005067 


001444 






CLR 


CDCNT 




1467 


005062 


032767 


020000 


172500 


ISRD2: 


BIT 


#20000, SUR 


1468 


005070 


001015 








BNE 


ISRDE4 




1469 


005072 


004767 


001050 






JSR 


t7. 


TYHEAD 


1470 


005076 


014167 


005456 






MOV 


-(Rl).PRINTI 


1471 


005102 


004767 


005506 






JSR 


X7,PRINTR 


1472 


005106 


000004 


013715 






TYPE. 


SPACE 




1473 


005112 


014067 


005442 






MOV 


-<R0) ,PRINT1 


1474 


005116 


004767 


005472 






JSR 


X7.PRINTR 


1475 


005122 


022021 








CMP 


(R0)+. 


(RD* 


1476 


005124 


005767 


172440 




ISRDE4 


: TST 


syR 




1477 


005130 


100001 








BPL 


.♦4 




1478 


005132 


000000 








MALT 






1479 


005134 


000645 








BR 


ISRRT 




1480 


















1481 










.-INTERUPT DUE 


TO SOME KIND OF 


1482 










; THESE 


ERRORS 


ARE DESASTEROUS. 


1483 


005136 


100402 






ISRER: 


BMI 


ISREl 




1484 


005140 


104000 








HLT 






1485 


005142 


000445 








BR 


ISRST 




1486 


















1487 


005144 


032713 


010000 




ISREl: 


BIT 


#10000. 


aCDS 


1488 


005150 


001412 








BEQ 


ISRE2 




1489 


005152 


032713 


040000 






BIT 


#40000. 


aCDS 


1490 


005156 


001002 








BNE 


.♦6 





CHECK FOR IMAGE MODE ONLY 
BRANCH IF SET 
SET UP FOR PACKING MODE 
CALCULATE "SIZE" AND RETURN 

ERROR PRINTOUT 
CHECK FOR FIRST CARD 
BRANCH IF NOT 
SUB 2 FROM POINTER 

TEST THE DATA 
BRANCH IF NOT THE SAME 
ADD THE MAGIC NLWBER 
CHECK FOR RAP AROUND 
BRANCH IF NOT 
RAP AROUND 

CHECK FOR DOUBLE MATCH 

BRANCH IF NOT 

SUBTRACT THE MAGIC NUreER 

CHECK FOR RAP AROUND 

BRANCH IF NOT 

RAP AROUND 

GO CHECK REST OF DATA 

SUBTRACT MAGIC NUMBER 
CHECK FOR RAP AROUND 
BRANCH IF NOT 
RAP AROUND 



RESET CARD COUNTER 

CK SW13 FOR INHIBIT PRINTOUT 

BRANCH IF SET 

TYPE HEADING, DECK. CDCNT. CLCNT 
TYPE -(R1) IN OCTAL 
TYPE LEADING ZERO'S 

TYPE -<R0) IN OCTAL 

TYPE LEADING ZERO'S 

RESET POINTERS 

CHECK FOR HALT ON ERROR 

BRANCH IF HALT ON ERROR NOT SET 

HALT ON ERROR SET 



:6RANCH ON ERROR BIT 15 
.•ERROR BIT 15 NOT SET 



.CHECK FOR OFF-LINE 

.CHECK FOR CARD READER ERROR 
.BRANCH IF SET 



CZCOATO CDII 
CZCDA0.P11 



CAPD READER DIAG 
26-MAR-80 11:18 



C 3 

MACYll 30A(1052) 26-mR-80 11:21 PAGE 28 
DATA RELIABILITY TEST 



SEO 0028 



K91 


005160 
005^62 


104000 






K92 


000411 






1493 










K94 


005164 


004767 


001062 




1495 


005170 


002222 






1496 


005172 


104000 






1497 


005174 


000430 






1498 










1499 


005176 


032713 


040000 




1500 


005202 


001401 






1501 


005204 


104000 






1502 










1503 


005206 


032713 


020000 




1504 


005212 


001401 






1505 


005214 


104000 






1506 










1507 


0C5216 


032713 


004000 




1508 


005222 


001401 






1509 


005224 


104000 






1510 
1511 










003226 


032713 


002000 




1512 


00523*^ 


001401 






1513 


005254 


104000 






1514 










1515 


005236 


032713 


001000 




1516 


005242 


001401 






1517 


005244 


104000 






1518 


005246 


032713 


077000 




1519 


005252 


001 0C1 






1520 


005254 


104000 






1521 


005256 


000167 


001220 




1522 










1523 


005262 


032713 


1 77475 




1524 


005266 


001170 






1525 


005270 


005714 






1526 


005272 


001401 






1527 


005274 


104000 






1528 


005276 


010067 


001212 




1529 


005302 


166767 


001202 


001204 


1530 


005310 


026715 


001200 




1531 


005314 


001401 






1532 


005316 


104000 






1533 


005320 


016767 


001164 


173174 


1534 


005326 


122021 






1535 


005330 


001047 






1536 


005332 


020167 


001166 




1537 


005336 


100402 






1538 


005540 


016701 


001156 




1539 


005344 


005267 


173152 




1540 


005350 


001412 






1541 


005352 


005267 
026727 


001152 




1542 


005356 


001146 


000120 


1543 


005364 


001360 






1544 


005366 


004767 


000720 




1545 


005372 


105721 






1546 


005374 


000754 







ISRE2: 



ISRE3: 



ISRST; 
PSR: 



PSRLP: 
PSRRT: 



HLT 






DO 


I jftc J 




JSR 


:7, 


LASTCD 


B6E 


ISRNC 










BR 


ISRST 




BIT 


#40000, 


aCDS 








HLT 






BIT 


#20000, 


acDS 


RPO 
DCW 


44 




HLT 






BIT 


#4000. 


acDS 


DCW 


44 




HLT 






BIT 


#2000, 


acDS 


BEQ 


.♦4 




HLT 






BIT 


#1000, 


acDS 




.♦4 




HLT 






BIT 


#077000, aCDS 


BNE 


.♦4 




HLT 






jnp 


DATRST 




BIT 


#1 77475 ,aCDS 


BNE 


PSRER 




TST 


aCDC 




BEQ 


.♦4 




HLT 






MOV 


RO, 


BUFEND 


SUB 


SIZE, 


BUFEND 


C«P 


BUFEND, 


aCDA 


BEQ 


.♦4 




HLT 






nov 


SIZE, 


COUNT 


C«P8 


(RO)*, 


(R1) + 


BNE 


PSRDE 




CMP 


R1, 


TEND 


ani 


.♦6 




nov 


TSTART, 


Rl 


INC 


COUNT 




BEQ 


PSR8E 




INC 


CLCNT 




CMP 


CLCNT, 


#120 


BNE 


PSRLP 




JSR 


S7. 


NXCRD 


TSTB 


(Ri;+ 




BR 


PSRLP 





;OFF-LiNE BUT NOT CARD READER ERROR 



CHECK FOR LAST CARD 
BRANCH IF 80TH CARD 
CARD READER ERROR BUT NOT 80TH CARD 



CHECK FOR CARD READER ERROR 
BRANCH IF NOT 

CARD READER ERROR BUT NOT OFF LINE 



;END OF FILE ERROR (M1200 ONLY) 



;DATA ERROR 



;DATA LATE ERROR 



NON-EXISTANT MEMORY ERROR 
CHECK ALL ERROR BITS 
BRANCH IF AT LEAST ONE 
NONE OF THE ERROR BITS SET 
RESTART THE ENTIRE DATA TEST 

CHECK ALL BITS EXCEPT 1,6 AND 7 
BRANCH TO ERROR ROUTINE 
CHECK COLUMN COUNT REG. 
BRANCH IF OK 



SET UP COLUMN COUNTER 
TEST THE DATA 
BRANCH IF DATA ERROR 
CHECK FOR END OF TABLE 
BRANCH IF NOT 

MOVE POINTER TO TOP OF TABLE 
CHECK FOR END OF BUFFER 
BRANCH IF BUFFER END 
KEEP TRACK OF COLUMNS 
CHECK FOR END OF CARD 
BRANCH IF NOT END OF CARD 
GO 10 NEXT CARD 

UPDATE TABLE POINTER FOR NEXT CARD 
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DATA RELIABILITY TEST 



S£0 0029 



15A^ 














X7, 






005376 


004767 


000710 




PSRBE: 


JSR 


KXCRD 


1549 


005402 


105721 






PSRNX: 


TSTB 


(RD* 




1550 


005404 


032767 


000010 


172156 




BIT 


#10, 


SWR 


1551 


005412 


001014 








6NE 


PSRNXl 




1552 


005414 


162767 


000240 


001100 




SUB 


#160. , 


TSTART 


1553 


005422 


162767 


000120 


001074 




SUB 


#80., 

#160.. 

CDCNT, 


TEND 


155A 


005430 


162701 


000240 






SUB 


Rl 


1555 


005434 


066701 


001066 






ADD 


Rl 


1556 


005440 


042713 


000002 






BK 


#2. 


aCDS 


1557 


005444 


000167 


000360 




PSRNX1 : 


JMP 


SRETRN 




1558 


















1559 










;DATA ERROR UAS 


DETECTED, OUTPt 


1560 


005450 


005767 


001052 




PSRDE: 


TST 


CDCNT 




1561 


005454 


001045 








BNE 


PSRD2 




1562 


005456 


105740 






PSRDl : 


TSTB 


-(RO) 




1563 


005460 


005267 


001042 






INC 


CDCNT 




156A 


005464 


1220?1 








CURB 


(RO)*, 


(RD* 


1565 


005466 


001031 








BNE 


1$ 




1566 


005470 


062701 


000021 






ADD 


#21. 


Rl 


1567 


005474 


020167 


001024 






CMP 


Rl. 


TEND 


1568 


005500 


003402 








BLE 


2S 




1569 


005502 


162701 


000120 






SUB 


#120, 


Rl 


1570 


005506 


126011 


000021 




2$: 


CflPB 


21 (RO), 


(Rl) 


1571 


005512 


001010 








BNE 


3$ 




1572 


005514 


162701 


000021 






SUB 


#21, 


Rl 


1573 


005520 


020167 


000776 






CMP 


Rl. 


TSTART 


157A 


005524 


003302 








BGT 


PSRRT 




1575 


005526 


062701 


000120 






ADD 


#120, 


R1 


1576 


005532 


000677 








BR 


PSRRT 




1577 


















1578 


005554 


162701 


000021 




3$: 


SUB 


#21. 


Rl 


1579 


005540 


020167 


000756 






CMP 


Rl. 


TSTART 


1580 


005544 


003002 








BGT 


IS 




1S81 


005546 


062701 


000120 






ADD 


#120, 


Rl 


1582 


005552 


020167 


000746 




1$: 


CMP 


Rl. 


TEND 


1583 


005556 


001337 








BNE 


PSRDl 




1584 


005560 


016701 


000736 






MOV 


TSTART. 


R1 


1585 


005564 


005067 


000736 






CLR 


CDCNT 




1586 


005570 


032767 


020000 


171772 


PSRD2: 


BIT 


#20000. SUR 


1587 


005576 


001017 








BNE 


PSRDE3 




1588 


005600 


004767 


000342 






JSR 


X7, 


TYHEAD 


1589 


005604 


000004 


013715 






TYPE, 


SPACE 




1590 


005610 


114167 


004745 






M0V8 


-(Rl), 


PRINT1 


1591 


005614 


004767 


004754 






JSR 


V. 


PRINTS 


1592 


005620 


000004 


013712 






TYPE, 


SPACE-3 




1593 


005624 


114067 


004731 






MOVB 


-(RO). 


PRINT1 


1594 


005630 


004767 


004740 






JSR 


X7, 


PRINTS 


1595 


005634 


122021 








CMPB 


(R0)+, 


(RD* 


1596 


005636 


005767 


171726 




PSRDE3: 


TST 


syR 




1597 


005642 


100001 








8PL 


.+4 




1598 


005644 


000000 








HALT 






1599 


005646 


000631 








BR 


PSRRT 




1600 


















1601 










.•INTERUPT DUE TO SOME KIND OF 


1602 


005650 


100402 






PSRER: 


BMI 


PSRE1 





;G0 TO NEXT CARD 



;M0VE TABLE POINTER TO IMAGE TABLE 

.•UPDATE TABLE POINTER 
.•COMPENSATE FOR BYTES 
;CLR PACKING MODE SIT 
.•CALCULATE "SIZE" AND READ MORE CARDS 

r ERROR PRINTOUT 



SUB 1 FROM POINTER 

TEST THE DATA 
BRANCH IF NOT THE SAME 
ADD THE MAGIC NJ«ER 
CHECK FOR RAP AROUND 
BRANCH IF NOT 
RAP AROUND 

CHECK FOR DOUBLE MATCH 

BRANCH IF NOT 

SUBTRACT THE MAGIC NlfQER 

CHECK FOR RAP AROUND 

BRANCH IF NOT 

RAP AROUND 

GO CHECK REST OF DATA 

SUBTRACT MAGIC NlfCER 
CHECK FOR RAP AROUND 
BRANCH IF NOT 
RAP AROUND 



RESET CARD COUNTER 

CK SW13 FOR INHIBIT PRINTOUT 

BRANCH IF SET 

TYPE HEADING. DECK. CDCNT. CLCNT 

;MOVE BYTE INTO PRINT BUFFER 
; AND PRINT IT 

.-MOVE BYTE INTO PRINT BUFFER 
AND PRINT IT 
RESET POINTERS 
CHECK FOR HALT ON ERROR 
BRANCH IF HALT ON ERROR NOT SET 
HALT ON ERROR SET 



.•BRANCH ON ERROR BIT 15 



CZCDADO CD11 CARD READER DIAG 
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DATA RELIABILITY TEST 



30 



SEO 0030 



1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

•611 

1512 

1013 

16U 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

162A 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 



005652 
005654 

005656 
005662 
005664 
005670 
005672 
005674 

005702 
005704 
005706 
005714 
005720 
005722 
005726 
005730 
005732 

005734 
005740 
005742 
005746 
005750 

005754 
005760 
005762 

005764 
005770 
005772 

005774 
006000 
006002 

006004 
006010 
006012 
006014 
00602r 
006022 
006024 



006030 
006036 
006040 
006046 
006050 
006056 
006060 



104000 
000463 

032713 
001414 
032713 
001001 
104000 
032767 
001001 
104000 
012767 
032713 
001415 
032713 
001002 
104000 
000414 

004767 
002402 
000167 
104000 
000167 

032713 
001401 
104000 

032713 
001401 
104000 

032713 
001401 
104000 

032713 
001401 
104000 
032713 
001001 
104000 
000167 



066767 
100404 
012767 
000770 
032767 
001004 
012767 



004000 
000002 

000020 171666 



177660 
010000 

040000 



000312 
177352 
000526 
040000 

020000 

002000 

001000 
077000 
177276 



000456 
177660 
001000 
000120 



172606 



1$: 



PSRE3: 



PSRE4; 



HLT 




.•ERROR BIT 15 NOT SET 


BR 


PSRST 






BIT 


4^4000, 


aCDS 




BEO 


PSRE2 


.•BRANCH IF NOT 


BIT 


#2, 


acDS 




BNE 


.♦4 






HLT 








BIT 


M20. 


SUP 




BNE 


.♦4 


.•BRANCH IF BINARY DECK 


HLT 








MOV 


#-120, 


COUNT . 


ONLY READ ONE CARD 


BIT 


ftl 0000 , 


acDS 


CHECK FOR OFF-LINE 


BEQ 


PSRE3 






BIT 


#40000. 


acDS 


CHECK FOR CARD READER ERROR 


BNE 


.♦6 




BRANCH IF SET 


HLT 






OFF-LINE BUT NOT CARD READER ERROR 


BR 


PSRE4 






JSR 


X7, 


LASTCD , 


CHECK FOR LAST CARD 


BLT 


IS 




BRANCH IF NOT 


JMP 


PSRNC 




BRANCH IF 80TH CARD 


HLT 






■CARD READER ERROR BUT NOT 80TH CARD 


JMP 


DATRST 




•RESTART THE ENTIRE TEST 


BIT 


#40000. 


acDS 


■CHECK FOR CARD READER ERROR 


BEO 


.+4 




;8RANCH IF NOT 


HLT 






■CARD READER ERROR BUT NOT OFF LINE 


BIT 


#20000. 


acDS 




BEO 


.♦4 






HLT 




;END OF FILE ERROR (M1200 ONLY) 


BIT 


#2000. 


aCDS 




BEQ 


.♦4 






HLT 




.DATA LATE ERROR 


BIT 


#1000. 


aCDS 




BEQ 


.♦4 






HLT 






•NON-EXISTANT WMORY ERROR 


BIT 


#077000. aCDS 


.■CHECK AI.L ERROR BITS 


BNE 


.+4 




;8RANCH IF AT LEAST ONE 


HLT 






;NCNF OF THE ERROR BITS SET 


JMP 


PSRLP 




;60 CHECK THE DATA 



001^452 SRETRN: 
000<44 

0004 .'2 SRETR1: 

00042'. SRETR3: 



PSRST; 

RETURN PORTION OF INTERUPT SERVICE ROUTINE 
CALCULATES A NEW "SIZE" (Nlf©ER OF CO<^S TO BE READ) 
SET? UP THE CARD READER BUFFE-^S, AND ISUES THE READ COfflAND 
THEN DOES AN RTI TO THE BACKGROUND ROUTINE 



ADD OFFSET. SIZE 

6MI SRETR1 

MOV #-120, OFFSET 

BR SRETRN 

BIT #001000. SIZE 

BNE SRETR4 

MOV #120, OFFSET 
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DATA RELIABILITY TEST 



SEQ 0031 



1659 


006066 


000760 




BR 


SRETRN 






1660 


006070 


004767 


000156 


SRETR4: JSR 


X7. , 


LASTCD 


.CHECK FOR MORE THAN 80 CARDS 


1661 


006074 


003371 




BGT 


SRETR3 




.•BRANCH IF GREATER 


1662 


006076 


0167U 


000406 


MOV 


SIZE. 


aCDC 


.-SET UP COLMN COUNT 


1663 


006102 


012700 


016044 


MOV 


«8UFBEG 


.RO 


.•RESET TABLE POINTER 


166A 


006106 


010015 




MOV 


RO. 


8CDA 


;SET UP ADDRESS REG 


1665 


006110 


005213 




INC 


aCDS 




.•READ 


1666 


006112 


000002 




RTI 









1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
17U 



006114 
006122 
006130 
006134 
006140 
006144 



006252 
006260 
006266 
006272 
006300 
006302 
006310 



006312 
006316 
006322 
006330 
006332 

006334 
006336 



062767 
062767 
062701 
166701 
052713 
000207 



000240 
000120 
000240 
000366 
000002 



016767 
016767 
005267 
062767 
100772 
026727 
000207 



005067 
005267 
026727 
002001 
000207 

005726 
022626 



000232 
000242 
000226 
000120 

000212 



000212 
000204 
000200 



000400 
000374 



; SUBROUTINE TO SET PACKING MODE AND MOVE THE POINTERS FOR THE DATA. 



006146 


005767 


172360 




006152 


001004 






006154 


005267 


172352 




006160 


000004 


015053 




006164 


000004 






006166 


000000 






006170 


000004 


013715 




006174 


005267 


000326 




006200 


016767 


000322 


004352 


006206 


004767 


004402 




006212 


005367 


000310 




006216 


000004 


013715 




006222 


005267 


000302 




006226 


016767 


000276 


004324 


006234 


004767 


004354 




006240 


005367 


000264 




006244 


000004 


013715 




006250 


000207 







PAKSET; ADD 
ADD 
ADD 

SUB 
BIS 
RTS 

.•SUBROUTINE TO 
TYHEAD: TST 
BNE 
INC 
TYPE. 
NOME AD: TYPE 
DECK: DUMMY 
TYPE, 
INC 
MOV 
JSR 
DEC 
TYPE. 
INC 
MOV 
JSR 
DEC 
TYPE, 
RTS 



#160. 
#80.. 
#160 
CDCN" 
#2. 
Z7 



TSTART 
TEND 
oi 

1 

iCDS 



;M0VE TABLE POINTER TO PACKED TABLE 

UPDATE TABLE POINTER 
COMPENSATE FOR BYTES 
SET PACKING MODE BIT 



TYPE HEADING, 
ERFLG 
NOHEAD 
ERFLG 
MSG13 



SPACE 
CDCNT 

CDCNT.PRINTl 
X7.PRINTR 

CDCNT 
SPACE 
CLCNT 

CLCNT.PRINTl 

X7.PRINTR 

CLCNT 

SPACE 

X7 



TYPE OF DECK, CARD COUNT, AND COLlfW COUNT 
CHECK FOR FIRST ERROR 
BRANCH IF NOT 
SET FLAG 

TYPE HEADING FOR DATA ERRORS 
OUTPUT TYPE OF DECK 
POINTER TO DECK TITLE 



ADJUST CADR COUNT 
TYPE CDCNT IN OCTAL 
TYPE LEADING ZERO'S 
READJUST CADR COUNT 



ADJUST COLIMN COUNT 
TYPE CLCNT IN OCTAL 
TYPE LEADING ZERO'S 
READJUST COLUWyi COUNT 



000236 
000232 

000216 

000120 



000120 



; SUBROUTINE 
LASTCD: MOV 



LSTC01 : 



MOV 
INC 
ADD 
BMI 
CtV> 
RTS 



TO CHECK FOR LAST CARD 
SIZE, TEMPI 



CDCNT, 
TEMP2 
#120, 
LSTCD1 
TEMP2, 
17 



TEMP2 
TEMPI 
#80. 



.SUBROUTINE TO KEEP TRACK OF CARDS 



NXCRD : 



CLR 
INC 
CMP 
BGE 
RTS 



ALLDON: TST 
CMP 



CLCNT 
CDCNT 
CDCNT, 
ALLDON 
17 

(6)* 
(6) + , 



RESET COLl/W COUNT 
.KEEP TRACK OF CARDS 
#120 .-CHECK FOR 80TH CARD 

.-RETURN 

.-CORRECT STACK POINTER TO REPLACE RTS 
(6)* ; CORRECT STACK POINTER TO REPLACE RTI 
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DATA RELIABILITY TEST 



1715 
716 
1717 
1718 
1719 
.720 
1721 
1722 
1723 
172A 
1725 
1726 
1/27 
1728 
1729 
1730 
1731 
1732 
1733 
173A 
1735 
1736 
1737 
1738 
1739 
17A0 
1741 
1742 
i7A3 
1744 
17A5 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 



006340 
0uj>.4 
006350 
006352 
006354 
006356 
006360 
006362 
006364 
006372 
006374 
006376 

006400 
006404 
006406 
006410 
006412 

006414 
006420 
006422 

006424 
006430 
006432 

006434 
006440 
006442 

006444 
006450 
006452 



no4767 
013700 
001405 
000005 
004710 
000240 
000240 
000240 
032767 
001402 
000000 
000427 

032713 
001424 
005713 
100401 
104000 

032713 
001001 
104000 

032713 
001401 
104000 

012712 
000001 
000776 

032713 
001001 
104000 



006454 022626 



006456 
006462 
006470 
006472 
006476 

006502 
006504 

006510 
006512 
006514 
006516 
006520 
006522 
006524 
006526 
006530 



005167 
032767 
001402 
000167 
000167 

022626 
000167 

177660 
177660 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



003622 
000042 



000040 171176 HOOKl 



JSR 

f«nv 

BEO 

RESET 

JSR 

NOP 

NOP 

NOP 

BIT 

BEO 

HALT 

BR 



010000 

040000 
023471 
006444 

000010 



ONLINE: BIT 
BEO 
TST 
BMI 
HLT 

BIT 
BNE 
HLT 

BIT 
BEO 
HLT 

MOV 

WAIT 

BR 

ONI NT: BIT 
BNE 
HLT 

CMP 



X7,BELL 
a4r42, XO 
HOOKl 

%7. (RC) 



/ir40«SUR 
ONLINE 

DECKCK 

#10000. acDS 

DECKCK 

acDS 

.+4 



#40000, aCDS 
.♦4 



#023471 ,aCDS 
.♦4 



#0NINT, aADINT 



.-2 

#10, 
.+4 



acDS 



RING BELL 

LOAD CONTENTS OF SOFT VECTOR 42 
8RANCK IF NO HOOK 
CLEAR ALL I/O 
RETURN TO MONITOR 



CHECK SWR FOR HALT AT END OF DECK 
CONTINUE IF NOT SET 
END OF DECK,SW5 SET 



CHECK FOR OFF-LINE 
BRANCH IF NOT 
CHECK FOR ERROR (BIT 15) 
BRANCH IF SET OK 
ERROR BIT 15 NOT SET 

CHECK FOR CARD READER ERROR 
BRANCH IF SET OK 

OFF-LINE NOT DUE TO CARD READER ERROR 

CHECK FOR EXTRA BITS SET 

BRANCH IF OK 

EXTRA ERROR BITS SET 

;SET UP INTERUPT VECTOR 
;UAIT FOR AN INTERUPT 
;UAIT ON TRACE TRAPS 

CHECK FOR TRANSITION TO ON LINE 
BRANCH IF SET OK 

INTERUPT BY OTHER THAN BIT 3 SETTING 



(SP) + , (SP)+ .-RESTORE THE STACK 



1 72044 
000100 

172322 
175564 



175556 



.-WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SW6 FOR TYPE 
;0F TESTING TO BE PERFORMED 



171100 



DECKCK: 



COM 
BIT 
BEQ 
JMP 
JMP 



DATRST: CMP 
JMP 

SIZE: -120 

OFFSET: -120 

BUFEND: 0 

TEW1 : 0 

TE/V2: 0 

TSTART: 0 

TEND: 0 

CDCNT: 0 

CLCNT: 0 



TRFLG 
#100, SWR 
.+6 

RESTRT 
DATST 

(SP)*, 
DATST 



(SP) + 



; TOGGLE TRACE FLAG 
.•CHECK SW6 
.BRANCH IF NOT SET 

;RERUN COMBINED INSTRUCTION AND DATA TEST 



.•RESTORE THE STACK 
.•RESTART DATA TEST 



STARTING ADDRESS OF DATA TABLE 
END ADDRESS OF DATA TABLE 
NUMBER OF CARD BEING READ 
NUrCER OF COLUMN BEING CHECKED 
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SEO 0033 



771 006532 

772 006534 
773 

774 
775 

/76 006536 

777 006542 

778 006546 

779 006554 

780 006560 

781 006566 
782 

783 
784 
785 

786 006572 

787 006574 

788 006600 

789 006604 

790 006610 

791 006614 

792 006620 

793 006624 

794 006630 

795 006634 

796 006640 

797 006644 

798 006646 

799 006650 

800 006652 

801 006654 
802 

803 006656 

804 006660 

805 006662 
806 

807 006664 

808 006670 

809 006672 

810 

81 1 00667A 

812 006700 

813 006702 
814 

815 
816 
817 

818 006704 

819 006706 

820 006712 

821 006716 

822 006722 

823 006726 

824 006730 

825 006734 

826 006736 



000000 
000000 



005067 
000167 
012767 
004767 
012767 
005067 



104400 
004767 
000004 
000004 
000004 
000004 
000004 
000004 
000004 
012714 
012715 
000000 
005213 
105713 
001001 
104000 

005713 
001001 
104000 

032713 
001001 
104000 

032713 
001401 
104000 



104400 
004767 
000004 
000004 
000004 
000000 
032713 
001001 
104000 



171 V6 
0OCJO6 
1 77777 
171762 
006574 
003642 



003340 
013723 
01 5423 
01 5466 
015551 
015612 
015661 
013720 
1 77701 
016044 



002000 



075577 



003226 
014027 
013762 
013720 

010000 



PTOFF: 0 
DERCNT: 0 



.•OFFSET TO POINTER FOR DATA PRINTOUT 
.-DATA ERROR COLUMN COUNT 



.CARD READER IS M-1200 



1 71 764 
003652 



.•SETUP FOR ERROR FUNCTION TEST 

ER1200: CLR GDI 000 

JMP ER12CD 

ERCD11: MOV 0177777. CDIOOO ;CARD READER IS M1000 

ER12CD: JSR X7. SETUP .-INITIALIZE REGISTERS 

MOV #TESTA*2.R£TURN .SETUP SCOPE LOOP RETURN ADDRESS 

CLR ITMAX .RUN EACH ERROR TEST ONCE ONLY 



;HALT SHOULD CAUSE DATA LATE ERROR (BIT 10) 
.•SHOULD SET ERROR (BIT 15) 



TESTA: SCOPE 




JSR 


X7, INIT 


TYPE, 


CRLF 


TYPE, 


MSG22 


TYPE. 


MS623 


TYPE, 


MSG 24 


TYPE. 


MSG25 


T VDC 

TYPt , 


n5G<:o 


TYPE, 


CRLF-3 


MOV 


#-77, aCDC 


MOV 


#BUFBEG,aCDA 


HALT 




INC 


aCDS 


TSTB 


acDS 


BNE 


.♦4 


HLT 




TST 


acDS 


BNE 


.♦4 


HLT 




BIT 


#2000. aCDS 


BNE 


.*4 


HLT 




BIT 


#075577, aCDS 


BE a 


.♦4 


HLT 





THE CARD READER GOING OFF-LINE 
AND OFF-LINE (BIT 12) 
GOING BACK ON LINE SHOULD SET 
TESTS: SCOPE 



JSR 

TYPE, 

TYPE, 

TYPE, 

HALT 

BIT 

BNE 

HLT 



3!7,INIT 
MSG3 
MSG2 
CRLF-3 

#10000,aCDS 
.♦4 



INITIALIZE STATUS REGISTER 

•VIHEN PRINTING STOPS PUT HALT AND 

SINGLE BUS CYCLE DOUN. AND HIT 'CONTINUE' ON THE 

CONSOLE UNTIL ONE CARD IS READ 

THEN F^T UP THE TWO SWITCHES A^© HIT 

•CONTINUE' ON THE CONSOLE 

MOVE MESSAGE UP ON TTY 

SET UP COLUMN COUNT 

SET UP BUS ADDRESS 

START READING 

CHECK FOR CONTROLLER READY 

BRANCH IF SET OK 

CONTROLLER READY FAILED TO SET 

CHECK FOR ERROR ( BIT 15) 
BRANCH IF SET OK 
ERROR BIT 15 NOT SET 

CHECK FOR DATA LATE ERROR (BIT 10) 

BRANCH IF SET OK 

DATA LATE BIT 10 NOT SET 

CHECK FOR ANY OTHER BITS 
BRANCH IF OK 

EXTRA BITS SET IN STATUS WORD 

SHOULD SET ERROR (BIT 15) 

TRANSITION TO ON-LINE" (BIT 3) 

.INITIALIZE STATUS REGISTER 
.•"PRESS CARD READER 'STOP'" 
;'THEN HIT 'CONTINUE' ON THE CONSOLE" 
;MOVE MESSAGE UP ON TTY 

.•CHECK BIT 12 
.•BRANCH IF SET 

.•OFF-LINE (BIT 12) WASN'T SET 



CZCDADO CDIl CARD REAOFR DIA6 
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1827 

1828 

1829 

1850 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 
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ERROR FIMCTION TESTS 



SEO 0034 



006740 
006742 
006744 


005713 
100401 
104000 




TCT 

TSl 

mi 

HLT 


■I Do 
.♦4 


. rue D r T 1 C 

.•BRANCH IF SET 

.•ERROR (BIT 15) WASN'T SET 


006746 
006752 
006754 


031327 
0014UI 
104000 


067577 


BIT 
oto 
HLT 


aCDS.ir067577 


.•CHECK FOR EXTRA BITS 
.STATUS WORD ERROR 


006756 

0U6/'O2 

006766 
006772 


000004 

000004 
000000 


013726 

01 OC 

013720 


TYPE. 

T VOC 

TYPE. 
HALT 


MSGl 
CRLF-3 


;'T>RESS CARD READER 'RESET'"; 

• "tuekj ufT TniuTTKiic' mu tuf rrvucni C" 
, intiV nil tl^NlifVUc UN Inc (.IM^ULc 

.•MOVE MESSAGE UP ON TTY 


007000 
007002 


AT571 T 

001001 
104000 


OOUUlU 


D 1 T 
Di 1 

BNE 

HLT 


.♦4 


;8R^NCH IF SET OK 

;Tf<ANSITION TO ON-LINE FAILED TO SET 


WfW* 

007010 
007012 


001401 
104000 


U 1 UUUU 


Q f T 

BEQ 

HLT 


.+4 


.LnCv.^ run Ur r~Linlc 

.•BRANCH IF OK 
.•OFF-LINE STILL SET 


007014 
007016 
007020 


005713 
100401 
104000 




TST 

ani 

HLT 


acDS 

.♦4 


.•CHECK ERROR (BIT 15) 
.-BRANCH IF STILL SET 
.•ERROR BIT 15 CLEARED 


007022 
007026 
007030 


032713 
001401 
104000 


077567 


BIT 
BEQ 
HLT 


*077567,aCDS 
.+4 


.CHECK FOR EXTRA BITS 

.BRANCH IF OK 

.•EXTRA STATUS BITS SET 



007032 


104400 






007034 


004767 


003100 




007040 


012712 


007112 




007044 


052767 


000340 


170724 


007052 


016762 


170720 


000002 


007060 


042767 


000340 


170710 


007066 


012713 


000100 




007072 


000004 


014027 




007076 


000004 


013720 




007102 


032713 


010000 




007106 


001775 






007110 


000402 






007112 


104000 






007114 


000002 






007116 


105713 






0C7120 


100401 






007122 


104000 






007124 


005713 






007126 


100401 






007130 


104000 







.•TRYING TO READ WHEN CARD READER IS OFF-LINE SHOULD CAUSE AN INTERUPT 
.•CHECK THAT AN INTERRUPT OCCURS WHEN THE CARD READER COMES ON LINE 
TESTC: 



TLOPC: 

TINTC: 
CONTC: 



SCOPE 








JSR 


X7.INIT 




.•INITIALIZE STATUS REGISTER 


MOV 


/TTINTC, 


aADINT 


.•LOAD RETURN POINTER 


BIS 


#340. 


PS 


;SET PROCESSOR TO LEVEL 7 


MOV 


PS. 


2(ADINT) 


.•LOAD RETURN PROCESSOR STATUS 


BIC 


#340. 


PS 


;SET PROSSOR PRIORITY TO 0 


MOV 


#100. 


aCDS 


;SET INTERUPT ENABLE 


TYPE, 


MSG3 




;'T>RESS CARD READER 'STOP'" 


TYPE. 


CRLf-3 




.•MOVE MESSAGE UP ON TTY 


BIT 


#10000. 


acDS 


.WAIT FOR OFF-LINE TO SET 


BEO 


TLOPC 






BR 


CONTC 




.SKIP INTERUPT HANDIER 


HLT 






.-'STOP' SHOULDN'T CAUSE AN INTERUPT 


RTI 






.•RETURN FROM THE INTERUPT 


TST8 


aCDS 




.•CHECK CONTROLLER READY BIT 7 


SMI 


.+4 




.BRANCH IF OK 


HLT 






;CU READY DIDN'T SET YET 


TST 


acDS 




.CHECK ERROR BIT 


BMI 


.♦4 




.-BRANCH IF SET 


HLT 






; ERROR (SIT 15) NOT SET 
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SEO 0035 



1883 


007132 


032713 








BIT 


#067477 


1884 


007136 


001401 








BEO 


.♦4 


1885 


007140 


104000 








HLT 




1886 
















1887 


007142 


012712 


007174 






MOV 


#TINTCA 


1888 


007146 


052767 


000340 


170622 




BIS 


#340. 


1889 


007154 


016762 


170616 


000002 




MOV 


PS. 


1890 


007162 


042767 


000340 


170606 




BIC 


#340. 


1891 


007170 


005213 








INC 


aCDS 


1892 


007172 


000777 








BR 




1893 
















1894 


007174 


022626 






TINTCA: 


CMP 


(SP)*, 


1895 


007176 


105713 








TST8 


acDS 


1896 


007200 


100401 








BMI 


.♦4 


1897 


007202 


104000 








HLT 




1898 
















1899 


007204 


032713 


010000 






BIT 


#10000. 


1900 


007210 


001001 








BNE 


.♦4 


1901 


007212 


104000 








HLT 




1902 
















1903 


007214 


005713 








TST 


acDS 


1904 


007216 


100401 








BMI 


.♦4 


1905 


007220 


104000 








HLT 




1906 
















1907 


007222 


032713 








BIT 


#067477 


1908 


007226 


001401 








BEQ 


.♦4 


1909 


007230 


104000 








HLT 




1910 
















1911 


007232 


012712 


007272 






MOV 


#TINTCB 


1912 


007236 


052767 


000340 


1 70532 




BIS 


#340. 


1913 


007244 


016762 


1 70526 


000002 




MOV 


PS. 


19K 


007252 


042767 


000340 


170516 




BIC 


#340, 


1915 


007260 


000004 


013726 






TYPE. 


MS61 


1916 


007264 


000004 


013720 






TYPE. 


CRLf-3 


1917 


007270 


000777 








BR 




1918 
















1919 


007272 


022626 






TJNTC8: 


CMP 


ISP)*. 


1920 


007274 


03271 3 


000010 






BIT 


#10, 


1921 


007300 


001001 








BNE 


.♦4 


1922 


007302 


104000 








HLT 




1923 
















1924 


007304 


032713 


010000 






BIT 


#10000, 


1925 


007310 


001401 








BEO 


.♦4 


1926 


007312 


104000 








HLT 




1927 
















1928 


007314 


005713 








TST 


acDs 


1929 


007316 


100401 








BMI 


.♦4 


1930 


007320 


104000 








HLT 




1931 
















1932 


007322 


032713 


077467 






BIT 


#077467 


1933 


007326 


001401 








BEQ 


.♦4 


1934 


007330 


104000 








HLT 




1935 
















1936 










; INPUT 


HOPPER 


EMPTY SH0( 


1937 










.•CHECK 


THAT INTERRUPTS ( 


1938 


007332 


104400 






TESTD: 


SCOPE 





aCDS ; CHECK FOR EXTRA BITS 
.-BRANCH IF OK 
.STATUS WORD ERROR 

aADINT .-LOAD RETURN POINTER 
PS .-SET PROCESSOR TO LEVEL 7 

2(ADINT) .-LOAD RETURN PROCESSOR STATUS 
PS .SET PROSSOR PRIORITY TO 0 

;TRY TO READ A CARD 

.-WAIT FOR THE INTERUPT 

(SP)* .RESTORE THE STACK 

.•CHECK CONTROLLER READY BIT 7 

.•BRANCH IF OK 

;CU READY DIDN'T SET YET 

aCDS .'CHECK FOR OFf-LlNE BIT 12 
.-BRANCH IF OK 
.•OFF-LINE BIT 12 NOT SET 

.•CHECK ERROR BIT 

.-BRANCH IF SET 

.•ERROR (BIT 15) NOT SET 

,aCDS ; CHECK FOR EXTRA BITS 
;BRANCH IF OK 
.•STATUS WORD ERROR 

.aADINT ;LOAD RETURN POINTER 
PS ;SET PROCESSOR TO LEVEL 7 

2(ADINT) ;LOAD RETURN PROCESSOR STATUS 
PS .-SET PROSSOR PRIORITY TO 0 

;'T>RESS CARD READER 'RESET'" 

;MOVE MESSAGE UP ON TTY 

;UAIT FOR THE INTERUPT 

(SP)* .-RESTORE THE STACK 

aCDS .-CHECK FOR TRANSITION TO ON-LINE (BIT 3) 
'BRANCH IF SET OK 

•TP^SITION TO ON-LINE FAILED TO SET 

aCDS .'CHECK FOR OFF-LINE 
.•BRANCH IF OK 
.'OFF-LINE STILL SET 

.'CHECK ERROR (BIT 15) 
;8RANCH IF STILL SET 
.ERROR BIT 15 CLEARED 

,aCDS .'CHECK FOR EXTRA BITS 
.-BRANCH IF OK 
.'EXTRA STATUS BITS SET 
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1939 


007334 


004767 


002600 




1940 


007340 


000004 


014115 




1941 


007344 


000004 


01 3762 




1942 


007350 


000004 


013720 




1943 


007354 


000000 






1944 


007356 


032713 


010000 




1945 


007362 


001001 






1946 


007364 


104000 






1947 










1948 


007366 


005713 






1949 


007370 


100401 






1950 


007372 


104000 






1951 










1952 


007374 


032713 


040000 




1953 


007400 


001001 






1954 


007402 


104000 






1955 










1956 


007404 


032713 


027573 




1957 


007410 


001401 






1958 


007412 


104000 






1959 










1960 


007414 


012712 


007464 




1961 


007420 


052767 


000340 


1 70350 


1962 


007426 


016762 


1 70344 


000002 


1963 


007434 


042767 


000340 


1 70334 


1964 


007442 


012713 


0001 00 




1965 


007446 


000004 


014166 




1966 


007452 


000004 


013726 




1967 


007456 


000004 


013720 




1968 


007462 


000777 






1969 










1970 


007464 


022626 






1971 


007466 


012712 


007530 




1972 


007472 


052767 


000340 


1 70276 


1973 


007500 


016762 


^ 70272 


000002 


1974 


007506 


042767 


000340 


170262 


1975 


007514 


012714 


177701 




1976 


007520 


012715 


016044 




1977 


007524 


005213 






1978 


007526 


000777 






1979 










1980 


007530 


022626 






1981 


007532 


022713 


000300 




1982 


007536 


001401 






1983 


007540 


104000 






1984 










1985 










1986 


007542 


104400 






1987 


007544 


004767 


002370 




1088 


007550 


000004 


014232 




1989 










1990 


007554 


000004 


013762 




1991 


007560 


000004 


013720 




1992 


007564 


000000 






1993 


007566 
007572 


032713 


010000 




1994 


001001 







jSfi 

TYPE. 

TYPE. 

TYPE. 

HALT 

BIT 

BNE 

HLT 

TST 

eni 

HLT 

BIT 
BNE 
HLT 

BIT 
BEQ 
HLT 

MOV 

BIS 

MOV 

BIC 

MOV 

TYPE. 

TYPE. 

TYPE. 

BR 

CMP 
MOV 
BIS 
MOV 
BIC 
MOV 
MOV 
INC 
BR 



TINTDA: CMP 
CMP 
BEQ 
HLT 



TINTD: 



X7.INIT 
MSG5 
MSG2 
CRLF-3 

#10000. aCDS 
.♦4 



aCDS 
.♦4 



#40000. acDs 

.♦4 



#027573. aCDS 
.♦4 



#TINTD. aADINT 
#340, PS 



PS. 
#340. 
#100. 
MSG6 
MSG1 
CRLF-3 



2(ADINT) 
PS 

aCDS 



(SP)+. (SP)+ 
#TINTDA. aADINT 
#340. PS 
PS. 2(ADINT) 
#340. PS 
#-77. aCDC 
#BUFBEG.aCDA 

acDS 



ISP)*, (SP)+ 

#000500. acDS 

.♦4 



36 



INITIALIZE STATUS REGISTER 
'T^EMOVE ALL CARDS FROM THE INPUT HOPPER" 
•THEN HIT 'CONTINUE* ON THE CONSOLE" 
MOVE MESSAGE UP ON TTY 

CHECK BIT12 
BRANCH IF SET 

OFF-LINE (BIT 12) WASN'T SET 

CHECK ERROR BIT 

BRANCH IF SET 

ERROR (BIT 15) NOT SET 

CHECK FOR CARD READER ERROR 
BRANCH IF SET 

CARD REAER ERROR BIT 14 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 
STATUS WORD ERROR 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

;LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET INTERUPT ENABLE 

'TiESTORE CARDS TO THE INPUT HOPPER" 

•PRESS CARD READER 'RESET'" 

MOVE MESSAGE UP ON TTY 

WAIT FOR THE INTERUPT 

RESTORE THE STACK 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

.•LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET UP COL\Jfi COUNT 

SET UP BUS ADDRESS 

START READING 

WAIT FOR AN INTERUPT 

RESTORE THE STACK 

CHECH THE CARD READER STATUS 

BRANCH IF OK 

CARD READER STATUS ERROR 



SEO 0036 



.OUTPUT STACKER FULL SHOULD SET BITS 15. 14, 12, ' 
TESTE: SCOPE 

JSR X7.INIT 

TYPE. MS67 



TYPE. 

TYPE. 

HALT 

BIT 

BNE 



MSG2 
CRLF-3 

#10000.aCDS 
.+4 



.INITIALIZE STATUS REGISTER 
.-'PULL OUTPUT STACKER PRESSURE ARM 

;ALL THE WAY DOWN" 
.••THEN HIT 'CONTINUE' ON THE CONSOLE" 
.-MOVE MESSAGE UP ON TTY 



;CHECK OFF-LINE BIT12 
.-BRANCH IF SET 
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SEQ 0037 



1995 

19% 

1997 

1998 

1999 

^000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 



007574 104000 



007576 
007600 
007602 

007604 
007610 
007612 

007614 
007620 
007622 

007624 
007630 
007636 
007644 
007652 
007656 
007662 
007666 

007670 
007672 
007676 
007704 
007712 
007720 
007724 
007730 
007732 

007734 
007736 
007742 
007744 



007746 
007750 
007754 
007760 
007764 

007770 
007774 
010000 
010002 
010006 
010010 

010012 
010016 



005713 
100401 
104000 

032713 
001001 
104000 

032713 
001401 
104000 

012712 
052767 
016762 
042767 
012713 
000004 
000004 
000777 

022626 
012712 
052767 
016762 
042767 
012714 
012715 
005213 
000777 

022626 
022713 
001401 
104000 



104400 
004767 
000004 
000004 
000004 

000004 
000004 
000000 
032713 
001001 
104000 

032713 
001775 



040000 



027577 



007670 
000340 
170134 
000340 
0001 00 
013726 
013720 



007734 
000340 
170066 
000340 
177701 
016044 



000300 



002164 
014115 
013762 
014334 

013726 
013720 

010000 



000010 



170140 
000002 
170124 



170072 
000002 
170056 



HLT 
TST 

sni 

HLT 

BIT 
ONE 
HLT 

BIT 
BEQ 
HLT 

MOV 

BIS 

MOV 

BIC 

MOV 

TYPE. 

TYPE, 

BR 

TINTE: CMP 
MOV 
BIS 
MOV 
BIC 
MOV 
MOV 
INC 
BR 

TINTEA: CMP 
CMP 
BEQ 
HLT 



aCDS 
.♦4 



#40000. acDS 

.♦4 



#027577,aCDS 
.♦4 



#TINTE. iADlNT 
#340. PS 



PS, 
#340. 
#100. 
MSG1 
CRLF-3 



2(AD1NT) 
PS 

aCDS 



(SP)*. (SP)* 
#TINTEA.aADINT 
#340, PS 
PS. 2<ADINT) 
#340, PS 
#-77, aCDC 
#BUFBEG,aCDA 
aCDS 



(SP)*, (SP)+ 

#ooo300,acos 

.♦4 



0FF-LIA€ (BIT 12) WASN'T SET 

CHECK ERROR BIT 15 

BRANCH IF SET 

ERROR BIT 15 N^'T SET 

CHECK FOR CARD READER ERROR 
BRANCH IF SET 

CARD READER ERROR BIT 14 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 
STATUS WORD ERROR 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

.'LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET INTERUPT ENABLE 

'T>RESS CARD READER 'RESET'" 

MOVE MESSAGE UP ON TTY 

UAIT FOR THE INTERUPT 

RESTORE THE STACK 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

.-LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET UP COLlfM COUNT 

SET UP BUS ADDRESS 

START READING 

UAIT FOR AN INTERUPT 

RESTORE THE STACK 

CHECH THE CARD READER STATUS 

BRANCH IF OK 

CARD READER STATUS ERROR 



;A PICK CHECK ERROR SHOULD SET BIT 15, BIT 14. AND BIT 12 
.THIS ERROR OCCURS yHEN THE FEED MECHANISM FAILS TO DELIVER A CARD 
.THE READ STATION WITHIN 400 MS. 
TESTF: SCOPE 



TO 



JSR 
TYPE. 
TYPE. 
TYPE. 

TYPE. 

TYPE. 

HALT 

BIT 

BNE 

HLT 

BIT 
BEQ 



X7.INIT 
MSGS 
MSG2 
MSGS 

MSG1 
CRLF-3 

#10000, aCDS 
.♦4 



#10. 
.-4 



acDS 



'flEMOVE ALL CARDS FROM THE INPUT HOPPER' 
•THEN HIT 'CONTINUE' ON THE CONSOLE" 
'KILD DOVM THE SWITCH LMDER THE CAP 
OF THE INPUT HOPPER" 
'PRESS CARD READER 'RESET'" 
MOVE MESSAGE UP ON TTY 



CHECK FOR OFF-LINE 

BRANCH IF SET 

OFF LINE NOT SET AFTER 



'CONTINUE" 



CHECK FOR "TRANSITION TO ON LINE" 
UAIT FOR IT 
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SEO 0038 



2051 


010020 


022713 


140210 




2052 


010024 


001401 






2053 


010026 


104000 






205A 










2055 


010030 


012714 


177701 




2056 


010034 


012715 


016044 




2057 


010040 


005213 






2058 


010042 


105713 






2059 


010044 


100376 






2060 


010046 


032713 


010000 




2061 


010052 


001001 






2062 


010054 


104000 






2063 










2064 


010056 


005713 






2065 


010060 


100401 






2066 


010062 


104000 






2067 










2068 


010064 


032713 


040000 




2069 


010070 


001001 






2070 


010072 


104000 






2071 










2072 


010074 


031327 


027577 




2073 


010100 


001401 






2074 


010102 


104000 






2075 










2076 


010104 


012712 


010154 




2077 


010110 


052767 


000340 


167660 


2078 


010116 


016762 


167654 


000002 


2079 


010''24 


042767 


000340 


167644 


2080 


010132 


012713 


000100 




2081 


010136 


000004 


014166 




2082 


010142 


000004 


013726 




2083 


010146 


000004 


013720 




2084 


010152 


000777 






2085 










2086 


010154 


022626 






2087 


010156 


012712 


010220 




2088 


010162 


052767 


000340 


167606 


2089 


010170 


016762 


167602 


000002 


2W0 


010176 


042767 


000340 


167572 


2091 


010204 


012714 


177701 




2092 


010210 


012715 


016044 




2093 


010214 


005213 






2094 


010216 


000777 






2095 










2096 


010220 


022626 






2097 


010222 


022713 


000300 




2098 


010226 


001401 






2099 


010230 


104000 






2100 










2101 










2102 










2103 










2104 


010232 


104400 






2)05 


010234 


004767 


001700 




2106 


010240 


000004 


014027 





CMP 
BEO 
HLT 

MOV 

MOV 

INC 

TSTB 

BPL 

BIT 

BNE 

HLT 

TST 
BMI 
HLT 

BIT 
BNE 
HLT 

BIT 
BEO 
HLT 

MOV 

BIS 

MOV 

BIC 

MOV 

TYPE. 

TYPE, 

TVPE. 

BR 

TINTF: CMP 
MOV 
BIS 
MOV 
BIC 
MOV 
MOV 
INC 
BR 

TINTF A; CMP 
CMP 
BEQ 

HLT 



#140210.aCDS 
.♦4 



»-77, aCDC 
«BUFBEG,aCDA 
aCDS 

acDS 
.-2 

#ioooo,acDS 

.♦4 



acDS 

.♦4 



«40000, acDS 

.♦4 



aCDS .#027577 
.♦4 



#TINTF , 

#340, 

PS, 

#340, 

#100, 

MSG6 

MSGl 

CRLF-3 



aADINT 
PS 

2(ADJNT> 
PS 

aCDS 



(SP)+. (SP)* 
#TINTFA,aADINT 
#340, PS 
PS, 2(ADINT) 
#340, PS 
#-77, aCDC 
#BUFBEG,aCDA 
aCDS 



(SP)*, (SP)* 

#000300,aCDS 

.♦4 



CHECK FOR CORRECT STATUS BITS 
BRANCH IF OK 

STATUS NOT EQUAL TO 140210 

SET UP COLLMN COUNT 
SET UP BUS ADDRESS 
READ 

CHECK CONTROLLER READY 
WAIT FOR CONTROLLER READY 
CHECK BIT12 
BRANCH IF SET 

OFF-LINE (BIT 12) WASN'T SET 

CHECK SPECIAL CONDITION BIT 

BRANCH IF SET 

SPECIAL CONDITION NOT SET 

CHECK FOR CARD READER ERROR 
BRANCH IF SET 

CARD REAER ERROR BIT 14 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 
STATUS WORD ERROR 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

;LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET INTERUPT ENABLE 

•RESTORE CARDS TO THE INPUT HOPPER" 

•PRESS CARD READER "RESET"' 

MOVE MESSAGE UP ON TTY 

WAIT FOR THE INTERUPT 

RESTORE THE STACK 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

.-LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET UP COLIMN COUNT 

SET UP BUS ADDRESS 

START READING 

WAIT FOR AN INTERUPT 

RESTORE THE STACK 

CH«:CH THE CARD READER STATl'S 

BRANCH IF OK 

CARD READER STATUS ERROR 



A STACK CHECK ERROR SHOULD SET BIT 15, BIT 14, AND BIT 12 
THIS ERROR OCCURS WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO 
THE READ STATION 
TESTG: SCOPE 

JSR X7,INIT 

TYPE, MSG3 .'PRESS CARD READER ">TOP'" 
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S£0 0039 



2107 


010244 


000004 


014425 


2108 








2109 








2110 


010250 


000004 


013726 


2111 


010254 


000004 


013720 


2112 


010260 


032713 


010000 


2i13 


010264 


001 775 




21 H 


010266 


03271 3 


000010 


2115 


010272 


001775 




2116 


010274 


022713 


100210 


2117 


010300 


001401 




2118 


010302 


104000 




2119 








2120 


010304 


012714 


177701 


2121 


010310 


012715 


016044 


2122 


010314 


005213 




2123 


010316 


105713 




21 2A 


010320 


100376 




2125 


010322 


032713 


010000 


2126 


010326 


001001 




2127 


010330 


104000 




2128 








2129 


010332 


005713 




2130 


010334 


100401 




2131 


010536 


104000 




2132 








2133 


Oh '-40 


032713 


040000 


213^1 


010344 


001001 




2135 


010346 


104000 




2136 








2137 


010350 


032713 


027577 


2138 


010354 


001401 




2139 


010356 


104000 




2U0 








2141 


010360 


012712 


010430 


2142 


010364 


052767 


000340 


2143 


010372 


016762 


167400 


2144 


010400 


042767 


000340 


2145 


010406 


012713 


000100 


2146 


010412 


000004 


014603 


2147 


010416 


000004 


013726 


2148 


010422 


000004 


013720 


2149 


010426 


000777 




2150 








2151 


010430 


022626 




2152 


010432 


012712 


010474 


2153 


010436 


052767 


000340 


2154 


010444 


016762 


167326 


2155 


010452 


042767 


000340 


2156 


010460 


012714 


1 77701 




A1 Ay 

010464 


Ai 0*71 C 

012^15 


At ^ A/ / 

016044 


2158 


010470 


005213 




2159 


010472 


000777 




2160 








2161 


010474 


022626 




2162 


010476 


022713 


000300 



TYPE, nS69 



TLOPG: 
TLOPGA: 



167404 
000002 
167370 



167332 
000002 
167316 



TYPE. 

TYPE, 

BIT 

BEO 

BIT 

BEO 

CMP 

BEO 

HLT 



nov 

MOV 

INC 

TLOPGB: TST8 
BPL 
BIT 
BNE 
HLT 

TST 
BMI 
HLT 

BIT 
BNE 
HLT 

BIT 
BEO 

HLT 

MOV 

BIS 

MOV 

BIC 

riOV 

TYPE, 

TYPE. 

TYPE. 

BP 

TINTG: CMP 
MOV 
BIS 
MOV 
BIC 
MOV 
MOV 
INC 
BR 

TINTGA: CMP 
CMP 



NSG1 
CRLF-3 

#10000. aCDS 
TLOPG 

#10. aCDS 
TLOPGA 

#ioo2io.acps 

.♦4 



#-77, aCDC 
«BUFBEG.9C0A 

acDs 
acDS 

TLOPGB 

#ioooo.acDS 

.♦4 



acDs 

.♦4 



#40000. aCDS 
.■•4 



#027577.aCDS 
.♦4 



#TINTG, 

#340. 

PS. 

#340. 

#100. 

MSG10 

MSG1 

CRLf-3 



aADINT 

PS 

2(AD1NT) 
PS 

aCDS 



(SP)+, (SP)* 
. TJNTGA.aADINT 
#340. PS 
PS. 2(A0INT) 
#340. PS 
#-77. aCDC 
#BUF8EG.aCDA 

acDS 



(SP)*- (SP)* 
#000300. aCDS 



"SLIDE A CARD FROM THE OUTPUT HOPPER ABOUT 

HALF AN INCH BACK INTO THE READ HEAD 

BLOCKING THE PHOTO CELL 

'T>RESS CARD READER 'RESET'" 

MOVE MESSAGE UP ON TTY 

CHECK FOR OF LINE 

yAJT FOR OFF-LINE 

CHECK FOR 'TRANSITION TO ON LINE" 

UAIT FOR IT 

CHECK FOR CORRECT STATUS BITS 
BRANCH I F OK 

STATU5 NOT EQUAL TO 100210 

SET UP COLLMN COUNT 
SET UP BUS ADDRESS 
READ 

CHECK CONTROLLER READY 
WAIT FOR CONTROLLER READY 
CHECK BIT12 
BRANCH IF SET 

OFF-LINE (BIT 12) WASN'T SFT 

CHECK SPECIAL CONDITION BIT 

BRANCH IF SET 

SPECIAL CONDITION NOT SET 

CHECK FOR CARD READER ERROR 
BRANCH IF SE T 

CARD REAER ERROR BIT 14 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 
STATUS WORD ERROR 

LOAD RETURN POINTER 
SET PROCESSOR TO LEVEL 7 
.-LOAD RETURN PROCESSOR STATUS 
SET PROSSOR PRIORITY TO 0 
SET INTERUPT ENABLE 

'nemyE JA^rED cards" 

•T>RESS CARD READER 'RESET'" 
MOVE MESSAGE UP ON TTY 
WAIT FOR THE INTERUPT 

RESTORE THE STACK 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

;LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET UP COLIMN COUNT 

SET UP BUS ADDRESS 

START READING 

WAIT FOR AN INTERUPT 

RESTORE THE STACK 

CHECH THE CARD READER STATUS 
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2163 


010502 


001401 




21W 


010504 


104000 




2165 








2166 








2167 








2168 








2169 








2170 








2">71 








21 72 








2173 








2174 


010506 


005767 


170026 


2175 


010512 


001402 




2176 


010514 


000167 


000322 


2177 








21 78 


010520 


104400 




2179 


010522 


004767 


001412 


2180 


010526 


000004 


015324 


2181 


010532 


000004 


013726 


2182 


010536 


000004 


013762 


2183 


010542 


000004 


013720 


2184 


010546 


000000 




2185 








2186 


010550 


032713 


000010 


2187 


010554 


001775 




2188 


010556 


000004 


01 5370 


2189 


010562 


000004 


01 3762 


2190 


010566 


000004 


013720 


2191 


010572 


0U4767 


00134? 


2192 


010576 


000000 




2193 








2194 








2195 


010600 


032713 


020000 


2196 


010604 


001401 




2197 


010606 


104000 




2198 








2199 








2200 


010610 


032713 


040000 


2201 


010614 


001401 




2202 


010616 


104000 




2203 








2204 








2205 


010620 


032713 


000004 


2206 


010624 


001401 




2207 


010626 


104000 




2208 








2209 


010630 


005713 




2210 


010632 


100001 




2211 


010634 


104000 




2212 








<;213 








2214 








2215 








2216 


010636 


012712 


010704 


2217 


010642 


052767 


000340 


2218 


010650 


016762 


167122 
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SEO 0040 



BEQ 

HLT 



.♦4 



.•BRANCH IF OK 

.•CARD READFR STATUS ERROR 



;END OF FILE BUTTON AND HOPPER CHECK TEST 
ON H-1000 BIT 13 IS ALWAYS CLEARED 

ON H-1200 IF END OF FILE BUTTON IS PRESSED WITH INPUT 
HOPPER LOADED THEN WHEN INPUT HOPPER BECOMES EMPTV 
HOPPER CHECK INDICATOR LIGHT COMES ON AND BITS 
13 U AND 15 ARE SET 



TST 


CD1000 


BEQ 


TESTI 


JMP 


TESTH 


TESTI: SCOPE 




JSR 




T VDC 

1 YPt , 




TYPE, 


MSG1 


TYPE , 




TYPE, 


CRLF-3 


HAL) 




BIT 


#10. 


OCA 


~4 


TYPE. 


MSG21 


TVDC 

f Trt, 




TVDC 

I YPt, 


roi c_T 
LKLr -i 


JSR 


X7. 


HALT 




Di 1 


ffCvvvV 


BEQ 


.♦4 


HLT 




BIT 


#40000 


BEQ 


.♦4 


HLT 




BIT 




BEQ 


.♦4 


HLT 




TST 


acDS 


BPL 


.♦4 


HLT 





INIT 



acDS 



INIT 



acDS 



IS READER M-1000? 

BRANCH IF READER IS ri-1200 

OUT OF THIS TEST IF M-1000 



•PUT ANY TWO CARDS IN INPUT HOPPER" 
"PRESS CARD READER 'RESET'" 
"THEN HIT 'CONTINUE' ON THE CONSOLE" 
MOVE MESSAGE UP ON TTY 



CHECK FOR TRANSITION TO ON LINE 
WAIT FOR IT 

"PRESS END OF FILE BUTTON" 

"THEN HIT 'CONTINUE' ON THE CONSOLE' 

MOVE MESSAGE UP ON TTY 



CHECK BIT 13 
BRANCH IF NOT SET 
EOF SET FROM 6EGINING 



CHECK BIT 14 
BRANCH IF NOT SET 

READER CHECK ERROR SET FROM BEGINNING 



CHECK BIT 2 

BRANCH IF NOT SET 

HOPPER CHECK SET FROM BEGINING 

CHECK ERROR BIT 
BRANCH IF NOT SET 
ERROR SET FROM BEGINING 



MOV #TINTI. aADINT ;LOAD RETURN POINTER 
167126 SECN: BIS #340. PS ;SET PROCESSOR TO LEVEL 7 

000002 MOV PS. 2<ADINT);L0A0 RETURN PROCESSOR STATUS 



CZCOACK) CDH CA«D READER DIAG 
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sea 0041 



2219 

2220 

2221 

2222 

2221 

222^ 

222S 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

22'i7 

2258 

^259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

227^ 



010656 
010664 
010670 
010674 
010700 
010702 



042767 
012713 
012714 
012715 
0O5213 
000777 



000340 167112 


BIC 


#340, PS 


;SET PROCESSOR PRIOR J Y TO U 


000100 


MOV 


#100, acDS 


;SET INTERRUPT ENABLE 


177701 


MOV 


0-77. aCDC 


;SET UP COLIWN COUNT 


016044 


MOV 


#BUF8EG,aCDA 


;SET UP BUS ADDRESS 


INC 


acDs 


.•START READER 




BR 




.•WAIT FOR AN INTERPUPT 



010704 


022626 




TINTI: CMP 


(SP)*. 


(SP)* 


.•RESTORE THE STACK 


010706 
010712 
010714 


032713 
001401 
104000 


020000 


BIT 
BEQ 
HLT 


#20000, 
.♦4 


acDS 


.•CHECK BIT 13 

.BRANCH IF NOT SET 

;EOF SET AT END OF UNE CARD 


010716 
010722 
010724 


032713 
001401 
104000 


040000 


BIT 
BEQ 
HLT 


#40000, 
.♦4 


acDS 


.•CHECK BIT 14 
;8RAN(i< IF NOT SET 

.•READER CHECK ERROR SET AT END OF ONE CARD 


010726 
010730 
010732 


005713 
100001 
104000 




TST 
8PL 
HLT 


acDS 

.♦4 




.•CHECK ERROR BIT 

.•BRANCH IF NOT SET 

.•ERROR SET AT E^J> OF ONE CARD 


0 10734 
010740 
010742 


012712 
0O07';0 
Occocb 


010742 


MOV 
BR 

T 1 k.lT f A • TAAD 

1 1 N N A ; Cnr 


#TINTIA.aADINT 
SECN 

(SP)*. (SP)+ 


;LOAD RETURN POINTER 
;READ SECOND CARD 


010744 
010750 
010752 


032713 
001001 
104000 


020000 


BIT 
BNE 
HLT 


#20000, 
.♦4 


acDS 


.•CHECK BIT 13 

.•BRANCH IF SET 

.-EOF NOT SET AT END OF FILE 


010754 
010760 
010762 


032713 
001001 
104000 


040000 


BIT 
BNE 
HLT 


#40000, aCDS 
.♦4 


.•CHECK BIT 14 
.•BRANCH IF SET 

.•READER CHECK NOT SET A" END OF FILE 


01076*. 
010770 
010772 


032713 
001001 
104000 


000004 


BIT 
BNE 
HLT 


#4, 
.♦4 


acDS 


.•CHECK BIT 2 
.•BRANCH IF SET 

.•HOPPER CHECK NOT SET WHEN HOPPER EMPTY 


010774 
010776 

onooo 


005713 
100401 
104000 




TST 
BMI 
HLT 


acDs 

.♦4 




.•CHECK ERROR BIT 
'BRANCH IF SET 

;ERROR BIT NOT SET AT END OF FILE 


011002 
011006 
011012 
011016 
011022 


000004 
000004 
000004 
000004 
000000 


014166 
013726 
013762 
013720 


TYPE, 
TYPE, 
TYPE, 
TYPE, 
HALT 


ns66 
nsGi 

MS62 
CRLF-3 




.••RESTORE CARDS TO THE INPUT HOPPER" 
;'T»RESS CARD READER 'RESET'" 
.•"'HEN HIT CONTINUE ON THE CONSOLE" 
;MOVE ME«^SAGE UP ON TTY 


011024 
011030 


032713 
001775 


000010 


BIT 
BEQ 


#10, 
.-4 


acDS 


.-CHECK TRANSITION TO ON LINE 
.■WAIT FOR IT 


011032 
011036 
011040 


032715 
001401 
104000 


020000 


BIT 
BEQ 
HLT 


#20000. 
.♦4 


acDS 


.•CHECK BIT 13 
/BRANCH IF NOT SET 

.-EOF DIDN'T CLEAR BY TRANSITION TO ON LINE 



001070 
0U702 

013726 
013720 
010000 

000010 

U0210 



1 77701 
016044 



010000 
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2275 
2276 
2277 
227% 
2279 

2280 011042 104400 

2281 011044 004767 

2282 011050 000004 
2283 

2284 011054 000004 

2285 011060 000004 

2286 011064 032713 

2287 011070 001775 

2288 011072 032713 

2289 011076 001775 

2290 011100 022713 

2291 011104 001401 

2292 011106 104000 
2293 

2294 011110 012714 

2295 011114 012715 

2296 011120 005213 

2297 011122 105713 

2298 011124 100376 

2299 011126 032713 

2300 011132 001001 

2301 011134 104000 
2302 

2303 011136 005713 

2304 011140 100401 

2305 011142 104000 
2306 

2307 011144 032713 

2308 011150 001001 

2309 011IJ2 104000 
2310 

2311 011154 032713 

2312 011160 001401 

2313 011162 104000 
2314 

2315 011164 012712 

2316 011170 052767 

2317 011176 016762 

2318 011204 042767 

2319 011212 012713 

2320 011216 000004 

2321 011222 000004 

2322 011226 000004 

2323 011232 000777 

2324 011234 OOOO-OO 

2325 011236 022626 

2326 011240 104400 

2327 011242 004767 

2328 011246 000167 
2329 

2330 
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42 



SEQ 0042 



040000 



027577 



011236 
000340 
166574 
000340 
000100 
014166 
013726 
013720 



000720 
175302 



A READ CHECK ERROR SHOULD SET BIT 15, 8IT 14. AND BIT 12 
THIS ERROR OCCURS WHEN THE READ ELECTRONICS IN THE CARD 
READER DISAGREES WITH THE NORMAL UNPUNCHED AREA OF THE CARD 



ESTH: 



TLOPH: 
TLOPHA: 



166600 
000002 
166564 



SCOPE 
JSR 
TYPE, 

TYPE, 

TYPE, 

BIT 

BEO 

BIT 

BEO 

CMP 

BEO 

HLT 



MOV 
MOV 

INC 

TLOPHB: TST8 
BPL 
BIT 
BNE 
HLT 

TST 
BMI 
HLT 

BIT 
BNE 
HLT 

BIT 
BEO 
HLT 

MOV 
BIS 
MOV 
BIC 
MOV 
TYPE, 
TYPE, 
TYPE. 
BR 
HALT 
TINTH: CMP 

SCOPE 

JSR 

JMP 



X7,INIT 
MSG12 

MSG1 
CRLF-3 

#10000, aCDS 
TLOPH 

M^o. acDS 

TLOPHA 

*140210.aCDS 
.♦4 



#-77. aCDC 
f8UF6EG,aCDA 
aCDS 

acDS 

TLOPHB 

#ioooo,acDs 

.♦4 



acDs 

.♦4 



*4oooo, acDS 

.♦4 



*027577,aCDS 
.♦4 



4fTINTH, 

«40. 

PS, 

#340, 

#100, 

MSG6 

MS61 

CRLF-3 



(SP)+, 
X7, 

ER12CD 



aADINT 
PS 

2(A0INT> 
PS 

aCDS 



(SPH 
BELL 



'PLACE SPECIAL DARK LIGHT CHECK CARD ONLY 

AT THE FRONT OF THE INPUT STACK" 

•PRESS CARD READER 'RESET'" 

MOVE MESSAGE <JP ON TTY 

CHECK FOR OF LINE 

WAIT FOR OFF-LINE 

CHECK FOR 'TRANSITION TO ON LINE" 

WAIT FOR IT 

CHECK FOR CORRECT STATUS BITS 
BRANCH IF OK 

STATUS NOT EOUAL TO 140210 

SET UP COLUMN COUNT 
SET UP BUS ADDRESS 
READ 

CHECK CONTROLLER READY 
WAIT FOR CONTROLLER READY 
CHECK BIT12 
BRANCH IF SET 

OFF-LINE (BIT 12) WASN'T SET 

CHECK SPECIAL CONDITION BIT 

Bf<ANCH IF SET 

SPECIAL CONDITION NOT SET 

CHECK FOR CARD READER ERROR 
BRANCH IF CET 

CARD REAER ERROR BIT 14 NOT SET 

CHECK FOR EXTRA BITS 
BRANCH IF OK 
STATUS WORD ERROR 

LOAD RETURN POINTER 

SET PROCESSOR TO LEVEL 7 

;LOAD RETURN PROCESSOR STATUS 

SET PROSSOR PRIORITY TO 0 

SET INTERUPT ENABLE 

'RESTORE CARDS TO THE INPU. HOPPER" 

•PRESS CARD READER 'RESET " 

MOVE MESSAGE UP ON TTY 

WAIT FOR AN INTERUPT 

RESTORE THE STACK 

RING THE BELL 

LOOP BACK TO THE PcGI^MING 



011252 
011256 
011260 
011266 
011274 
011276 
011304 
011306 
01 1314 
011316 
01 1 324 
011330 
011336 
011344 
011350 
011354 
011360 



CZCDADO CDIl 
CZCDA0.P11 



2331 

2352 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2544 

2545 

2546 

2547 

2348 

2349 

2550 

2551 

2552 

2353 

2554 

2555 

2556 

2357 

2358 

2359 

2560 

2361 

2362 

2365 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2575 

2574 

2575 

2576 

2377 

2578 

2579 

2580 

2581 

2582 

2585 

2584 

2585 

2386 



CARD READER OiAG 
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SEO 0045 



01156? 
011370 
011374 
011376 
011404 
011412 
011420 
011424 
011450 
011454 
011440 
011444 
011450 
011454 
011460 
011464 



004767 
000000 
016767 
062767 
000000 
032767 
001404 
042767 
000403 
052767 
005067 
012767 
012767 
000177 
005067 
000177 
000000 



012767 
004767 
000000 
016767 
042767 
016767 
005067 
006067 
106167 
106067 
106167 
106167 
106167 
106167 
012701 
006067 



167264 

166304 
000002 

010000 

000020 

000020 
001106 
004000 
011550 
000010 
001062 
000000 



011362 
167146 

166166 
170000 
000514 
000512 
000504 
000501 
000474 
000471 
000465 
000461 
000455 
000007 
000444 



000072 
000064 

166264 

166462 

166452 

001076 
001074 



ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST OR ERROR FUNCTION TEST 
NOTE THAT SU11 MUST BE OOUN AFTER 2N0 HALT 



TcSTX: 


JSH 
HALT 


X/, SETUP , 


SETUP POINTERS AM) FLAGS 
WAIT rOR STARTING ADDRESS 








STORE STARTING ADDRESS 




ADD 


*C,HtTKNX , 


CHANGE TQ FIRST ADDRESS AFTER SCOPE 




HAL 1 




5cl 5WR OPTJUNS (BIT 11 MUST = Qi 




D r T 
Di 1 


j^i nAAA CLIO 


'CHECK SWl^ 






♦ 1? 

#20,PS 






Bit 


•CLEAR TRACE BIT 




BR 


.♦10 


•SKIP NEXT INSTRUCTION 




BIS 


#20.PS 


•SET TRACE BIT 




CLR 


ITCNT 


•CLEAR ITERATION COUNTER 




WV 


*4000.ITHAX 






MOV 


*XI. OOP, RE TURN 


•LOAD RETURN ADDRESS 




jnp 


aRETRNX 


•JUMP TO TEST 


XLOOP: 


CLR 


ITCNT 


;KEEP ITERATION COUNTER AT ZERO 




J^F 


aRETRNX 


;JIJ1P TO TEST 


RETRNX: 


0 







*********************************************************************** 

ROUTINE TO CHECK CARDS WHICH HAVE ALL COLlfMS IDENTICALLY PUNCHED. 
THIS ROUTINE ALLOWS SPECIFIC TYPES Of DATA FAILURES TO BE STUDIED 
EASILY. THE ROUTINE HALTS ONCE AT THE START. SET THE CORRECT CARD 
IMAGE PATTERN IN SW'il-SWOO, THEN HIT CONTINUE (AFTER THE DECK IS 
LOADED AND CARD READER IS ON-LINE). THE PATTERN IS STORED, AND THEN 
EACH COLlfW OF EACH CARD IS READ TWICE AND COMPARED WITH IT. IF A 
DISCREPANCY OCCURS, THE ERROR IS PRINTED OUT ALONG WITH THE TOTAL 
NlfBER OF CARDS READ AND THE TOTAL NIWBER OF DATA ERRORS DISCOVERED 
UP TO THAT POINT (ALL PRINTOUTS ARE IN OCTAL). WHEN THE INPUT HOPPER 
IS EMPTY, THE ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE 
LOADED AND THE CARD READER TO BE PUT BACK ON-LINE. 

SW15=1 CAUSES A HALT AFTER AN ERROR, AND SW13=1 INHIBITS ERROR PRINTOUTS. 



001050 CKSAME: MOV 
JSR 
HALT 

000526 MOV 
000520 BIC 
000514 MOV 
CLR 
ROR 
R0L8 
RORB 
R0L8 
R0L8 
R0L6 
ROLB 
MOV 

CKL0P1: ROR 



iTCKSAME, RETURN 
17, SETUP 

SWR.CARDIM 

*1 70000, CARDIM 

CARDIM, CDPKO 

DERFLG 

CDPKO 

CDPK1 

CDPKO 

CDPK1 

CDPK1 

CDPKl 

CDPK1 

#7. R1 
CDPKO 



INITIALIZE POINTERS 

WAIT FOR CARD IMAGE PATTERN 

STORE PATTERN 

CLEAR UPPER BITS OF PATTERN 



lzcdado con 

CZCDAD.Pn 



CARD READER DIAG 
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2387 

2388 

2589 

2590 

2591 

2592 

2393 

259A 

2395 

2596 

2397 

2398 

2399 

2400 

2401 

2A02 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 



011470 
011472 
011476 
011502 
011504 
011506 
011510 
011514 
011520 
011524 
011530 
011534 
011542 
011544 
011552 
011554 
011560 
011564 
011570 
011574 
011600 
011602 
011604 
011610 
011612 
011614 
011616 
011620 
011624 
011626 
011632 
011634 
011640 
011646 
011650 
011652 
011656 
011660 
011664 
011672 
011674 

011676 
011702 
011704 
011710 
011714 
011716 

011720 
011724 
011726 
011732 
011734 
011742 
01 1 744 



103004 
005267 
150167 
005301 
001367 
000000 
004767 
005067 
005067 
005067 
105067 
032767 
001410 
032737 
001004 
052713 
105167 
005C67 
012700 
012714 
010015 
005213 
005267 
105713 
100376 
005713 
100427 
005767 
100012 
122067 
001046 
005267 
026727 
001367 
000727 
022067 
001034 
005267 
026727 
001367 
000715 

032713 
001406 
004767 
032713 
001775 
000674 

032713 
001407 
005767 
100004 
122767 
003331 
104000 



000440 
000433 



000424 
0OC410 
000402 
167002 
000403 
000010 

000004 

000002 
000353 
174740 
016044 
177660 



000320 

000312 

000303 

174670 
174664 

000254 

174644 
174640 

010000 

000256 
000010 

004000 
000204 
000001 



F 4 
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IDENTICALLY PUNCHED CARDS TEST 



CKOVR: 
CKSTRT: 



SEQ 0044 



166026 
177570 



CKLOOP: 



000120 



000120 



CKREAD: 



CKLPl: 



CiCL0P3: 



CKL0P2: 



000174 



CKERR: 
CKERR3: 

CKERRl : 
CKERR2: 



BCC 


CKOVR 




INC 


DERFLG 




BISB 


RI.CDPICl 




DEC 


R1 




BNE 


CKL0P1 




HALT 




rUAIT FOR SWITCH SETTINGS 


JSR 


J!7.INIT 




CLR 


TOTCRD 


.•INITIALIZE CARD COUNT 


CLR 


rOTERR 


.•INITIALIZE ERROR COUNT 


CLR 


ERFL6 


.CLEAR FLAG FOR PRINTING ERROR 


ClRB 


DERFL6+1 




BIT 


0^O. SUR 


.•CHECK FOR PACK MODE ONLY 


BEQ 


CKREAD 


.•BRANCH IF NOT SET 


BIT 


/V4, a#SWR 


.CHECK FOR IMAGE MODE ONLY 


BNE 


CKREAD 


.•BRANCH IF SET 


BIS 


02. aCDS 


.-SET PACKING MODE 


COMB 


DERFLG+1 




CLR 


CLCNT 


.•INITIALIZE COLIW COUNT 


MOV 


#BUF8E6,R0 


;SET UP BUFFER F>OINrER 


MOV 


*-i20, acDC 


;SET UP COLUMN COUNTER 


MOV 


RO, aCDA 


;SET UP BUS ADDRESS 


INC 


acDS 


; START READING CARD 


INC 


TOTCRD 


• ft I ^ 9^ ^ ftA^ ft 1 V ^ ft 9^ 9^ 9* M ■ V 

.•INCREMENT CARD COUNT 


TST8 


acDS 


; CHECK CONTROLLER READY 


BPL 


CKLP1 


;LOOP IF NOT SET 


TST 


acDS 


.•CHECK FOR ERROR 


BMI 


CKERR 


.•BRANCH IF ERROR SET 


TST 


DERFLG 




BPL 


CKL0P2 




CMPB 


(RO)+,CDPKl 


.'CHECK DATA 


BNE 


CKFAIL 




INC 


CLCNT 




CMP 


CLCNT, #120 




BNE 


CKL0P5 




BR 


CKLOOP 




CMP 


(R0)+, CARDIM 


.•CHECK THE DATA 


BNE 


CKFAIL 


.•BRANCH IF DATA ERROR 


INC 


CLCNT 


.COUNT THE COLUMNS 


CMP 


CLCNT, #120 


.'CHECK FOR LAST COLUMN 


BNE 


CKL0P2 




BR 


CKLOOP 




BIT 


#ioooo,acDS 


.CHECK FOR OFFLINE 


BEQ 


CKERR1 


;BRANCH IF NOT 


JSR 


X7, BELL 


.'RING THE BELL 


BIT 


#10, acDS 


.'CHECK TRANSITION TO ON-LINE 


BEO 


CKERR3 


9^9^ *ftli*>ll VP P ■ V & iP 

.'BRANCH IF OFF-LINE 


BR 


CKSTRT 


; START OVER 


BIT 


#4000,aCDS 


.•CHECK FOR DATA ERROR 




CKcRR^ 


TST 


DERFLG 




BPL 


CKERR2 




CMP8 


#1. DERFLG 




BGT 


CKL0P3 


;BRANCH IF LEGIT 


HLT 




.'REAL, LIVE ERROR. 
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IDENTICALLY PUNCHED CARDS TEST 



SEO 0043 





U 1 1 > mO 
















ni 1 7^n 

U 1 1 fj\j 


nn^5A7 

UUjcOr 


nnni*;? 

Uvv 1 Jc 




m 1 7^z. 

U 1 1 f JM 


n'07<»7 




0LL7 


m 1 7A5 

U 1 1 oc 


A^»i ncA 






U 1 1 f Om 


nns7A7 

J f Of 


1 OO JMC 




A1 1 77rt 
U 1 1 ' i\) 


nni /w. 

\AJ 1 UUm 




C'*J\J 


ni 1 775 


nn^ 5/s7 


1 OOJ JM 


CH J 1 


01 1 77A 


fVWW. 
VAAA/Vm 


ni ^?7n 




ni pnn? 


nnnnn^ 


V/ 1 Jf c J 




ni ?n/v^ 


ni/\7A7 
U lOf O' 


1 74 1 A 

1 f M J P O 




ni pni A 

U 1 CU 1 M 


nn^7/\7 
va/m f Of 


wWj f M 


CM J J 


ni 5n?n 




ni X7^ 'i 


cs JO 


ni 5n?^ 

U 1 cUCM 


nn^7A7 

\J\jJf Of 


000106 

\AJ\J 1 vO 




ni ?nxn 

w 1 CU JV 


lononA 




CM JO 


ni pnx? 

U 1 cUjc 


1 140^7 


noosp'^ 


<*♦ JT 


ni ?nVi 

U 1 Cv JO 


<J\r*i Of 


vW J JC 


cmOW 


ni?n^? 


10S7P0 




CMO I 


w 1 C V^M 


00040S 




CHOC 


U 1 c WHO 






cMO J 


\J 1 c>^»o 


0140^7 

w 1 MVAJ f 


000^06 

vW JvO 


cMOm 


01 ?ns? 

v 1 cU Jc 


JVM f Of 


Uvv J JO 


CMO J 


V/ 1 Cv JO 


oos7?n 




CHOO 


01 


000004 


01^71 S 

V 1 J f 1 -/ 




ni ?o^ 

V 1 C vOM 


01 A7f>7 

V 1 Of Of 


0OO040 


cMOO 


01 ?07? 

V 1 Cwr C 


0O47A7 

VVM f Of 


000S16 


CMOT 


01 P()7fi 
\J 1 Cvr KJ 


000004 


01 371 S 

V 1 Jf 1 J 


CM f w 


01210? 

V 1 C 1 vc 


016767 


000020 

VA/VWC V 


CM 1 1 


ni ?i 10 




000^00 


CM f C 


ni ?i 1^ 

U 1 C 1 • M 


WJ r Of 


1 O J V 


CM f J 


ni?i?o 

V 1 C I C V 






7L7L 

CM f M 


01 ?1?? 

1/ 1 C 1 cc 


V/WA/W 




CM ' J 


01 ?1?^ 

W 1 C 1 CM 


V/WOVi 1 




CM f O 








7L77 

CM f f 


01?1?<^ 
V 1 C 1 CO 


V/WAAA/ 




CM f O 


012150 


V/VAAA./V 




?^7<3 

CM f T 




vVAAAA/ 




CMOW 




000 




CMO 1 




000 




PAR? 

CMOC 


V 1 C 1 JO 


nooooo 

WVVVAA/ 




CMOV 








CMOM 








CMO J 








CMOD 








CMOf 








CMOO 








CMOT 


vie* **\/ 


004767 


0000^0 




012144 

V/ 1 C 1 MM 


105713 






01?14^ 
V 1 C 1 MO 








012150 


012713 


000400 


2493 


012154 


022713 


000200 

w vt w 


2494 


012160 


001401 




2495 


012162 


104000 




2496 


012164 


000207 




2497 








2498 









165606 



CKFAIL; 



000544 



CKNOHD: 



000466 
000450 



CKNOPK: 



CK0VR1 : 



CKHLT: 



TOTERR: 

TOTCRD: 

CARDIM: 

CDPKO: 

CDPKl: 

DERFLG: 



BR 

INC 

BIT 

BNE 

TST 

BNE 

INC 

TYPE. 

TYPE. 

MOV 

JSR 

TYPE. 

TST 

BPL 

M0V8 

JSR 

TST8 

BR 

MOV 

JSR 

TST 

TYPE. 

MOV 

JSR 

TYPE. 

MOV 

JSR 

TST 

BPL 

HALT 

BR 

0 
0 
0 

.BYTE 
.BYTE 
0 



CKLOOP 

TOTERR 

#20000. SWR 

CKHLT 

ERFLG 

CKNOHD 

ERFLG 

MS619 

CRLF 

CLCNT.PRINT1 
X7,PRINTR 
SPACE 
DERFLG 
CKNOPK 
-(RO). 
X7, 
CRO) + 
CK0VR1 



PRINTU1 
PRINTS , 



COUNT ERRORS 

CHECK FOR INHIBITING PRINTOUT 
BRANCH AROUND PRINTOUT IF SET 
TEST FLAG TO PRINT HEADING 
BRANCH IF ALREADY DOf« 
PRINT HEADING ONCE ONLY 
OUTPUT HEADING 

OUTPUT CARRIAGE RETURN, LINEFEED 
TYPE CLCNT IN OCTAL 
TYPE LEADING ZERO'S 



.'MOVE BYTE INTO PRINT BUFFER 
AND PRINT IT 



-(RO) .PRINT! 
X7.PRJNTR 

(R0) + 
SPACE 

TOT CRD. PR I NT! 

);7,PRINTR 

SPACE 

TOTERR. PRINT! 

X7.PRINTR 

SUR 

CKLOOP 
CKLOOP 



0 
0 



.TYPE -(RO) IN OCTAL 
.•TYPE LEADING ZERO'S 



.•TYPE TOTCRD IN OCTAL 
.TYPE LEADING ZERO'S 

TYPE TOTERR IN OCTAL 

TYPE LEADING ZERO'S 

CHECK SW15 TO HALT ON ERROR 

BRANCH IF NOT SET 

HALT ON ERROR 

CONTINUE 



.ISSUE MESSAGE IF CARD READER IS OFF-LINE 

;UAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A CARD 
.INITIALIZE STATUS REGISTER AND USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY 
;NOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS SET 



INIT: 



JSR 

TSTB 

BPL 

MOV 

CMP 

BEO 

HLT 

RTS 



X7. 
aCDS 
.-2 
#400. 
#200. 
.♦4 

X7 



CKOFFL 



9CDS 
SCDS 



SEE IF OFF-LINE BIT IS SET 
WAIT FOR CONTROLLER READY. IN CASE 
A CARD IS STILL BEING READ 
INITIALIZE THE CARD READER 
MAKE SURE INITIALIZATION OK 
BRANCH IF ALL BITS ZERO 
NOT ALL BITS OF STATUS REGISTER ARb ZERO 
RETURN 



.•BELL ON PASS COMPLETE 
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2^.99 


012166 


105777 


166316 


2500 


012172 


100375 




2501 


012174 


012777 


000207 


2502 


012202 


000207 




2503 








2504 








2505 








2506 


012204 


032713 


0:0000 


2507 


012210 


001001 




2508 


012212 


000207 




2509 


012214 


000004 


015247 


2510 


012220 


000004 


015165 


2511 


012224 


000000 




2512 


012226 


000766 




2513 








25U 








2515 








2516 


012230 


036727 


165334 


2517 


012236 


00 1 401 




2518 


012240 


000433 




2519 


012242 


012667 


000102 


2520 


012246 


012667 


000100 


2521 


012252 


024646 




2522 


012254 


000004 


013723 


2523 


012260 


01 6767 


000064 


252A 


012266 


004767 


000322 


2525 


012272 


000004 


013714 


2526 


012276 


016767 


000050 


2527 


012304 


004767 


000304 


2528 


012310 


000004 


013714 


2529 


012314 


011367 


000240 


2530 


012320 


004767 


000270 


2531 


012324 


000004 


013723 


2532 


012330 


005767 


165234 


2533 


012334 


100001 




2554 


012336 


000000 




2535 


012340 


000002 




2536 


012342 


000000 




2537 


012344 


000000 




2538 


012346 


000000 




2539 


012350 


000000 




2540 


012352 


000000 




2541 








2542 








2543 


012354 


032767 


040000 


2544 


012362 


001012 




2545 


012364 


032767 


004000 


2546 


012372 


001013 




2547 


012374 


026767 


000036 


2548 


012402 


100007 




2549 


012404 


005267 


000026 


2550 


012410 


022606 




2551 


012412 


012667 


165360 


2552 


012416 


000177 


000016 


2553 


012422 


005067 


000010 


2554 


012426 


011667 


000006 
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SEQ 0046 



BELL: 



166310 



TST8 
BPL 
MOV 
RTS 



arps 

.-4 

#207.aTP8 
X7 



.-SUBROUTINE TO CHECK FOR BIT 
.•READER CSR. AND PRINT OUT A 



CKOfFL: 



BIT 
BNE 
RTS 
TYPE. 
TYPE. 
HALT 
BR 



#10000. 
XT 

MS618 
MS617 

CKOFFL 



acDS 



;UAJT FOR TTY READY 

.-RING BELL 
.•RETURN 

12 (OFF-LINE) BEING SET IN CARD 
MESSAGE IF IT IS 
CHECK BIi 12 
BRANCH IF SET 
RETURN IF NOT SET 
•BIT 12 UAS SET"' 
•WMEDY THE ERROR CONDITION 
WAIT FOR CONTINUE 
CHECK AGAIN 



020000 



.•ENTERED WITH SYSTEM TRAP CALL (HLT) 

ERROR PC AND STATUS REGISTER 



000272 
000254 



PRINT : 


B t T 

BIT 


SWR , #£UUi;U 


• TCCT C no TkMjrOfT DDfMT m IT 

;ltol rUH INniol 1 rKJNi OUt 




BcQ 


. ♦4 


.BRANCH TO PRINT 




OH 








MOV 


(6)+. SAVPC 


;PC OF FAILING ROUT INF 




MOV 


(6)*. SAVPS 


:PS OR ERROR CONDITION 




CMP 


-(6). -(6) 


'RESTORE STACK 




TYPE. 


CRLF 


•OUTPUT CARRIAGE RETURN. LINEFEED 




MOV 


SAVFCPRINTl 


.•TYPE SAVPC IN OCTAL 
.-TYPE LEADING ZERO'S 




JSR 


X7,PRINTR 




TYPE. 


SPACE-1 






MOV 


SAVPS. PRINT1 


.TYPE SAVPS IN OCTAL 
.•TYPE LEADING ZERO'S 




JSR 


X7.PRINTR 




TYPE. 


SPACE-1 






MOV 


aCDS.PRINTI 


.•TYPE aCDS IN OCTAL 
.TYPE LEADING ZERO'S 




JSR 


X7.PRINTR 




TYPE. 


CRLF 




B.CK: 


TST 


SWR 


.•CHECK SWR FOR HALT SWITCH 




BPL 


.♦4 


.•BRANCH IF NOT SET 




HALT 




.■HALT ON ERROR UP 




RTI 




.•RETURN TO MAIN LINE 


SAVR2: 


0 






SAVR3: 


0 






SAVR4 : 


0 






SAVPC : 


0 






SAVPS: 


0 







165206 
165176 
000032 



.•SCOPE AND/OR 
SCOPE C: BIT 
BNE 
BIT 
BNE 
CMP 
BPL 
INC 

D.I: CMP 
MOV 
JMP 

D.2: CLR 
MOV 



ITERATION LOOP FOR 
#40000. SWR 

D.I 

#4000. SWR 
D.2 

ITCNT.ITMAX 
D.2 
ITCNT 

(6)+. X6 
(6)*. PS 
aRETURN 
ITCNT 

aX6. RETURN 



EACH TEST 2 TIMES 
TEST SUR FOR SCOPE 
YES. SCOPE 

NO- TEST FOR ITERATION 

INHIBIT ITERATION 

CHECK FOR ITERATIONS COMPLETE 

EXIT-DONE 

INCREMENT COUNT 

REPOSITION STACK POINTER 

RESTORE PROCESSOR STATUS 

RETURN TO RERUN TEST 

CLEAR COUNTER 

SAVE SCOPE RETURN POINTER 



CZCDADO CDn 
CZCDA0.P11 



CARD READER DIAG 
?6-MAR-80 11:18 



2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

256A 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

257« 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 



012432 
012434 
012436 
012440 



012442 
012444 
012446 
012447 
012450 
012451 

012452 
012456 
012460 
012462 
012464 
012466 
012472 
012474 
012476 
012500 
012502 
012506 
012510 
012514 
012520 
012522 

012526 
012532 
012534 
012540 
012542 
012546 
012550 
012556 



000002 
000001 
000000 
001064 



1 77564 
177566 
000 
002 
000 
000 

105767 
001402 
000000 
000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
004767 
122726 
001364 
016746 

105366 
002770 
004767 
000772 
105777 
100375 
116677 
000207 
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COnnON ROUTINES 

RTI 
ITMAX: 1 
ITCNT: 0 
RETURN: TESTU2 
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SEO 004 7 



'[77772 



000002 



000002 

000026 
000012 

y7772^ 

000001 

000002 

1 77674 

000002 



177666 



.•RETURN INLINE-NEXT TEST 
.MAX Nlf«ER OF ITERATIONS 
.COUNT LOCATION FOR ITERATION LOOP 
.•ADDRESS OF LAST TEST 



.ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
.THE ROUTINE WILL INSERT A NUMBER OF NUL' CHARACTERS AFTER A LINE FEED. 
;N0TE1: SNULL CONTAINS THE CHARACTER TO 3E USED AS THE FILLER CHARACTER. 
;N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 



$TPS: 


1 77564 




TTY PRINTER STATUS REG. ADDRESS 


$TP8: 


177566 




•TTY PRINTER BUFFER REG. ADDRESS 


SNULL: 


.BYTE 


0 


CONTAINS NULL CHARACTER FOR FILLS 


SFILLS: 


.BYTE 


2 


-CONTAINS » Of FILLER CHARACTERS REQUIPED 


STPFLG: 


.BYTE 


0 


TERMINAL AVAILABLE" FLAG (0=YES) 




.BYTE 


0 


■RESERVED 


STVPE: 


TSTB 


STPFLG 


■IS THERE A TERMINAL? 




BEQ 


6S 


;BR IF YES 




HALT 




■HALT HERE IF NO TERMINAL 




BR 


7$ 


•LEAVE 


6S: 


MOV 


RO.-(SP) 


•SAVE RO 




MOV 


a2(SP).R0 


•GET ADDRESS OF ASCI2 STRING 


1$: 


MOVB 


(RO)+.-(SP) 


•PUSH CHARACTER TO BE TYPED ONTO STACK 




BNE 


2$ 


•BR IF IT ISN'T THE TERMINATOR 




TST 


(SP) + 


IF TERMINATOR POP IT OFF THE STACK 




MOV 


(SP>>,RO 


•RESTORE RO 


7$: 


ADD 


#2.(SP) 


•ADJUST RETURN PC 




RTI 




•RETURN 


2$: 


JSR 


PC.SS 


•GO TYPE THIS CHARACTER 


3$: 


CMPe 


*12,(SP)* 


jCHECK IF THE CHAR. TYPED WAS A LINE FEED 




BNE 


1$ 


•60 GET NEXT CHAR. IF NOT LINE FEED 




MOV 


SNULL. -(SP) 


■GET # OF FILLER CHARS. NEEDED 








AND THE NW.L CHAR. 


4S: 


DEC6 


1 (SP) 


DOES A NULL NEED TO BE TYPED? 




BLT 


3$ 


BR IF NO~GO POP THE NULL OFF OF STACK 




JSR 


PC. 5$ 


GO TYPE A NULL 




BR 


4S 


•LOOP 


5$: 


TSTB 


as TPS 


•WAIT UNTIL PRINTER IS READY 




BPL 


5S 






MOVB 


2(SP) .aSTPB 


LOAD CHAR TO BE TYPED INTO DATA REG. 




RTS 


PC 





012560 000000 



OCTAL DUMP OF A WORD 
PRINT1: 0 



LZCDATO con CARD READER DIAG 
CZCDAD.Pn 26-MAR- 
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2611 

2612 

2613 

26U 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262^ 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 



012562 
012570 
012572 

012574 
012602 
012604 
012610 
012612 

012614 
012622 
012624 
012630 
012636 
012640 
012644 
012646 
012650 
012652 
012656 
012660 
012664 
012666 
012672 
012674 
012676 
012700 
012704 
012710 
012712 
012716 
012722 
012724 
012730 
012732 
012736 
012740 
012744 
012746 



012750 
012/50 
012752 
012754 
012756 
012760 
012762 
012764 
012766 



000000 
000 

012767 
010546 
012705 
105015 
000422 

112767 
000402 
005067 
112767 
010546 
012705 
105015 
000407 
105015 
006167 
106115 
006167 
106115 
006167 
106115 
105715 
001402 
105267 
105767 
001402 
152725 
105267 
001352 
022705 
001002 
112725 
105015 
000004 
012605 
000207 



' .18 






comofg 


ROUTINES 


000000 


000000 


PRINT2: 


.WORD 


0.0,0.0 


000 




PRINTS: 


DWTC 


A A 
0,0 


1 76401 


1 f fffO 


PRINIB: 


PUJV 


*17/»Z.A1 DDTklTt 








MOV 


15. -(6) 


012562 






MOV 


#PRINT2,X5 






n DO 










OD 

an 


DO r kl T T 


000001 


1 777CA 

1 ff OO 


PRjNiK : 


MUVo 


Ml DOrUTT 

• 1 .PHJiyi 3 








DO 

BR 


. ♦o 






PHlNloI 


r 1 D 


DO T klT X 


1 ■77770 
\ffffd 


1 777H 
lfff3j 




MAV/O 

nuvo 


w ~0 , Kn J IM 1 J ▼ 1 








MAI/ 

PWV 




0\cjtd 






nov 


JfDDTMTO 

mrHlNl c ,lkj 








n DO 


f^ \ 








OD 

On 


DD f lUTF 






DD TILlTl • 

PKIIMI L : 


n DO 




1 f f f\)C 






DAI 

ROL 


DDf MTI 








DAI D 




1 f rof'* 




DO rklTT - 


DAI 
KUL 


DO TMTI 








DAI Q 




1 r fooo 




DO T ikJTC • 


DAI 


OD TKIT 1 








OAI D 


f ^\ 








TCTQ 


f^\ 








BtU 


. +0 


Iff 000 






INLa 


DO f IUTT 


1 f rOOC 






TCTB 
1 0 1 0 


DO JMJX 








ocU 


. *o 


UUUUoU 






Q I CO 


» U, 1 3/ ♦ 


1 f fOJ 1 






INlo 












DO f JUTI 








CW 


»r7<iWI c .«J 










. ♦O 


UUUUOU 






nuvo 










ri RP 
CI. no 


(5) 


012562 






TYPE. 


PRINT2 








MOV 


(6)+.X5 








RTS 


%7 



SEO 0048 



.erTE -1.3 
SAVE R5 

SET POINTER TO 1ST ASCII CHAR. 
CLR 1ST BYTE 
PRINT 2 BITS 

.SET ZERO FILL SWITCH 

SUPRESS LEADING ZERO'S 
SET COUNT 
SAVE R5 

SET POINTER TO FIRST ASCII CHAR, 

CLEAR FIRST BYTE 

ROTATE FIRST BIT 

CLEAR BYTE OF CHARACTER 

ROTATE BIT INTO C 

PACK IT 

ROTATE BIT INTO C 
PACK IT 

ROTATE BIT INTO C 
PACK IT 



.•CHECK FILL SWITCH 
.-MAKE INTO ASCII CHAR 
; REPEAT 



.•TYPE IT 
.RESTORE R5 



.-DATA TABLES FOR DATA RELIABILITY TESTS 

ALPHANlilERIC DECK DATA TABLE 
CARD IMAGE FORM 







COLUMN 


ASCII 


PUNCH 




CHGD1 : 








12 


004000 


ALPCD: 


4000 


•1 


I 


014400 




14400 


•2 


A 


12 1 


024200 




24200 


•3 


B 


12 2 


034100 




34100 


•4 


C 


12 3 


044040 




44040 


•5 


D 


12 4 


054020 




54020 


•6 


E 


12 5 


064010 




64010 


;7 


F 


12 6 


074004 




74004 


-8 


G 


12 7 
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2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2107 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

1722 



0^2770 
0^2772 
012774 
012776 
013000 
013002 
013004 
013006 
01 3010 
013012 
013014 
013016 
013020 
013022 
013024 
013026 
013030 
013032 
013034 
013036 
013040 
013042 
013044 
013046 
013050 
013052 
013054 
013056 
013060 
013062 
013064 
013066 
013070 
013072 
013074 
013076 
013^00 
013102 
013104 
013106 
013110 
013112 
013114 
013116 
013120 
013122 
013124 
013126 
013130 
013132 
013134 
013136 
013140 
013142 
013144 
013146 



004002 
004001 
024202 
034102 
044042 
054022 
064012 
074006 
002000 
012400 
022200 
032100 
042040 
052020 
062010 
072004 
002002 
002001 
022202 
032102 
042042 
052022 
062012 
072006 
001000 
011400 
021200 
031100 
041040 
051020 
061010 
071004 
001002 
001001 
021202 
031102 
041042 
051022 
061012 
071006 
000000 
010400 
020200 
030100 
040040 
050020 
060010 
070004 
000002 
000001 
020202 
030102 
040042 
050022 
060012 
070006 



MACyll 30A(1052> 26-«AR-80 
DATA TABLES 

4002 

4001 

24202 

34102 

44042 

54022 

64012 

74006 

2000 

12400 

22200 

32100 

42040 

52020 

62010 

72004 

2002 

2001 

222Q2 

32102 

42042 

52022 

62012 

72006 

1000 

11400 

21200 

31100 

41040 

51020 

61010 

71004 

1002 

1001 

21202 

31102 

41042 

51022 

61012 

71006 

0000 

10400 

20200 

30100 

40040 

50020 

60010 

70004 

0002 

0001 

20202 

30102 

40042 

50022 

60012 

70006 
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49 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 



SEO 0049 



H 
I 

c 

« 

< 

( 

I 

J 

K 
L 
M 
N 
0 
P 
Q 
R 
] 
S 
* 

) 



0 
/ 
s 

T 
U 
V 

u 

X 
Y 
I 
\ 



> 

7 

SPACE 

1 

2 

3 

4 

5 

6 

7 

8 

9 

ft 

a 



12 
12 
12 

12 8 
12 8 
12 
12 



8 
9 
8 



12 8 
11 



11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



1 

2 
3 
4 
5 
6 
7 
8 
9 
8 
8 
8 
8 
8 
8 



2 
3 
4 
5 
6 
7 



1 
2 
3 
4 
5 
6 
7 
8 
9 
8 
8 
8 
8 
8 
8 

BLANK 

1 

2 

3 

4 

5 

6 

7 

8 

9 

8 2 
8 3 
8 4 
8 5 
8 6 
8 7 



L 4 
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DATA TABLES 








CI CJ 


m 'ii 




^nnn 




65 


e 


12 


cr c** 


ni '11 ^5 


ni LL(V\ 


1 LLfiO 




66 


A 


12 1 


Cf CJ 


m Ti 


UcHcW 


PA pnn 




67 


d 


12 2 


Cr CO 


ni XI 


nxtinn 

Uj*» iw 


XAino 

jH 1 vw 




68 


C 


12 3 


5757 
C' CI 


U 1 J 1 ou 








69 


D 


12 4 


573ft 

cf CO 




n^z.n5n 


c/npn 




70 


E 


12 5 


CI Cy 






A^ni n 




71 


F 


12 6 


CI >J 






7L()()L 

1 H\J\/H 




72 


G 


12 7 




01 XI 7t\ 


n<v.nn3 


Annp 




73 


H 


12 8 


CI JC 


ni XI 75 


<w.nm 


^nni 




74 


I 


12 9 


CI JJ 


ni XI 7L 


Aj/jnp 

UCHCWC 


CHcyjc 




75 


C 


12 8 2 


CI J"* 


ni X1 7A 


0X^1 np 

WJ*« 1 wc 


341 OP 




76 




12 8 3 


?7^S 


ni x?no 


n^^n^p 

V/HHUHC 






77 


< 


12 8 4 




ni x?n? 


ns^npp 






78 


( 


12 8 5 


?7'^7 

C' J' 




UO*»U 1 c 


w*»v 1 C 




•79 


♦ 


12 8 6 


C 1 jO 




wf HwVO 






■80 




12 8 7 


CI 
















CI Hv 








DECK DATA TABLE 








?7i1 






- THF UAI UP 


THE ENCODED FORM OF THE 


DATA 




P7^? 

Cf He 








COLLMN 


ASCII 


PUNCH 




ni xpin 


pnn 


Al prnp* rytp 


200 , 


; 1 


& 


12 


77 LL 


ni x?i 1 

\l 1 .»C 1 1 


pni 


RytF 

• OTIC 


201 , 


'2 


A 


12 1 




v 1 JC 1 C 


POP 

CvC 


RYTF 


^A^ 

202 


,5 


B 


12 2 


C 1 MO 


ni XP1 ^ 

1/ 1 DC 1 J 


P03 

Cw J 


RYTF 


203 


, / 

H 


C 


12 3 




ni xpii 

V 1 JC 1 H 


POi 


RYTF 


C\JH 




D 


12 4 


C 1 HO 


1/ 1 JC P J 


POS 

C\J J 


RYTF 


20p 


;6 


E 


12 5 


C 1 HT 




P06 


RYTF 


■5AiL 


; f 


F 


12 6 


C 1 J\J 


01'??17 

V 1 JC 1 r 


P07 


RYTF 


cO^ 




G 


12 7 




01 v?o 

V 1 JCC\J 


P10 


RYTF 


n 
ciU 




H 


12 8 






PPO 

CCv 


RYTF 


ccQ 




I 


12 9 


CI J J 


01 3??? 

w 1 JC CC 


PI? 

C 1 c 


RYTF 


PIP 

C 1 c 


• 1 1 

r ' ' 


C 


12 8 2 


CI J** 


01 X??^ 

W I JCC J 


PI ^ 


RYTF 


213 


;12 




12 8 3 


CI J J 


01 ^??4 




RYTF 


214 


;13 


< 


12 8 4 




01 VPS 
w 1 Dec J 


PIS 


RYTF 


215 


;14 


( 


12 8 5 


?757 

CI J 1 


01 VP^i 


P16 


RYTF 


216 


;15 


♦ 


12 8 6 




01 5PP7 

V 1 JCC » 


PI 7 


RYTF 


217 


;16 


1 


12 8 7 


P7SQ 

CI Jr 


01 W) 


100 


RYTF 


100 


r17 




11 


P7&0 


OT5P51 

\j 1 JCJ 1 


101 


RYTF 


101 


;18 


J 


11 1 


?7^^1 

C * O 1 


01 V V 

V 1 DC DC 


10P 

1 VC 


RYTF 


102 


;19 


K 


11 2 


?76? 


01 


103 


RYTF 

• Or It 


103 


;20 


L 


11 3 


?7A^ 


01 V^i 


10^ 


RYTF 


104 


;21 


n 


11 4 


C 1 


01 ??^s 

w 1 DCDJ 


10S 


RYTF 

• Otic 


105 


;22 


N 


11 5 


CI 


nixpv, 


106 


RYTF 


106 


;23 


0 


11 6 




01 ??^7 


TCi7 

1 V' 


RYTF 

• O TIC 


107 


;24 


p 


11 7 


?7(%7 

C * Of 


01 '5P40 


110 


RYTF 

• OTIC 


110 


;25 


0 


11 8 




\J 1 JCM i 


IPO 

* Cv 


RYTF 

• OTIC 


120 


••26 


R 


11 9 




01 ??4P 

w 1 JC^C 


IIP 


RYTF 

• OTIC 


112 


;27 


J 


11 8 2 


?77Q 


V 1 JC*9j 


113 


RYTF 
• o r 1 c 


113 


;28 


$ 


11 8 3 


?77\ 


01 3P44 


114 


RYTF 
• O * ( c 


114 


;29 


• 


118 4 


7777 




115 


RYTF 

• OTIC 


115 


r30 


) 


11 8 5 


2/73 


013246 


116 


•BYTE 


116 


;31 




118 6 


2774 


013247 


117 


.BYTE 


117 


;32 


*^ 


118 7 


2775 


013250 


040 


.BYTE 


40 


;33 


0 


0 


2776 


013251 


041 


•BYTE 


41 


;34 


/ 


0 1 


2777 


013252 


042 


.BYTE 


42 


,•35 


s 


0 2 


2778 


013253 


043 


.BYTE 


43 


;36 


T 


0 3 



SEO 0050 
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DATA TABLES 








2779 


013254 


044 




.BYTE 


44 


57 


u 


0 4 


?780 


013255 


045 




.BYTE 


45 


38 


V 


0 5 


2781 


01 5256 


046 




-BYTE 


46 


39 


u 


0 6 


2782 


013257 


047 




.BYTE 


47 


40 


X 


0 7 


2783 


013260 


050 




•BYTE 


50 


41 


V 


0 8 


2784 


013261 


060 




• BYTE 


60 


42 


z 


0 9 


2785 


013262 


052 




.BYTE 


52 


43 




0 8 2 


2786 


013263 


053 




.BYTE 


53 


■44 




0 8 3 


2787 


013264 


054 




• BYTE 


54 


45 


i 


0 8 4 


27l8 


01 3265 


055 




.BYTE 


55 


46 


> 


0 8 5 


2789 


013266 


056 




.BYTE 


56 


47 


0 8 6 


2790 


015267 


057 




.BYTE 


57 


48 


•> 


0 8 7 


2791 


015270 


000 




.BYTE 


0 


49 


SPACE 


BLANK 


2792 


013271 


001 




.BYTE 


1 


50 


1 


1 


2793 


013272 


002 




.BYTE 


2 


•51 


2 


2 


279< 


013273 


005 




.BYTE 


3 


•52 


3 


3 


2795 


0 ( 3274 


004 




.BYTE 


4 


•53 


4 


4 


2796 


013275 


005 




.BYTE 


5 


•54 


5 


5 


2797 


013276 


006 




.BYTE 


6 


•55 


6 


6 


2798 


013277 


007 




.BYTE 


7 


•56 


7 


7 


2799 


015500 


010 




.BYTE 


10 


;57 


8 


8 


2800 


015301 


020 




.BYTE 


20 


;58 


9 


9 


2801 


013502 


012 




.BYTE 


12 


;59 




8 2 


2802 


013303 


015 




.BYTE 


13 


;60 


k 


8 3 


2803 


013304 


014 




.BYTE 


14 


;61 


a 


8 4 


2804 


013505 


015 




.BYTE 


15 


;62 


ff 


8 5 


2805 


015506 


016 




.BYTE 


16 


:6j 


- 


8 6 


2806 


015307 


017 




.BYTE 


17 


;64 


• • 


8 7 


2807 


013510 


200 




.BYTE 


200 


;65 


% 


12 


2808 


013311 


201 




.BYTE 


201 


;66 


A 


12 1 


2809 


013312 


202 




.BYTE 


202 


;67 


B 


12 2 


2810 


015515 


205 




.BYTE 


205 


;68 


c 


12 3 


2811 


013514 


204 




•BYTE 


204 


;69 


D 


12 4 


2812 


015515 


205 




.BYTE 


205 


;70 


E 


12 5 


2813 


015516 


206 




.BYTE 


206 


;71 


F 


12 6 


28U 


015517 


207 




.BYTE 


207 


;72 


G 


12 7 


2815 


013320 


210 




.BYTE 


210 


;73 


H 


12 8 


2816 


013321 


220 




.BYTE 


220 


;74 


I 


12 9 


2817 


013322 


212 




•BYTE 


212 


;75 


c 


12 8 2 


2818 


013323 


213 




.BYTE 


213 


:76 




12 8 3 


2819 


013324 


214 




.BYTE 


214 


;77 


< 


12 8 4 


2820 


013325 


215 




.BYTE 


215 


;78 


( 


12 8 5 


2821 


013326 


216 




.BYTE 


216 


;79 




12 8 6 


2822 


013327 


217 


ALPENP: 


.BYTE 


217 


;80 


j 


12 8 7 


2823 


















2824 






.-BINARY 


DECK DATA TABLE 








2825 






BiNCD: 




COLIW 


PUNCH 




2826 


013330 


000000 


0 




;1 


BLANK 




2827 


013332 


000001 




1 




;2 






2828 


013334 


000002 




2 




;3 






2829 


013336 


070004 




70004 




;4 






2830 


015340 


OoOOlU 




60010 




;5 






2831 


013342 


050020 




50020 




;6 






2832 


013344 


040040 




40040 




:? 






2833 


013346 


030100 




30100 




;8 






2834 


013350 


020200 




20200 




;9 
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DATA TABLES 




2835 




010s 00 


10400 


10 


<:o56 


01 53 


AA1 AAA 

001000 


1000 ; 


11 


2857 


013556 


AA1AAA 

002000 


2000 ; 


12 


28 Jo 


01 3X)0 


00s 000 


4000 ; 


13 


28 5y 


01 3362 


\ 71 1 i i 

1 1^11 1 1 


171111 ; 


14 


28*»0 


01356s 


I fcccc 


y72222 ; 


15 


<:o»» 1 


A' TTiLZ. 

0 . 5566 


1 r 3555 


1 73333 


16 


2o*»2 


A-1 7 ^ 7 A 
01 53^0 


1 7y / / y 
1 rssss 


1 74444 


17 


COS 3 


A1 77 70 

01 3 J' c 


1 r5553 


175555 


18 


20HH 


A1 777/ 

01 35^s 


1 r6666 


176666 


19 


2o<»5 


0133^6 


1 77777 


1 77777 


20 


ooy ^ 
2oso 


Al 7y AA 


AX1 AI A 

061010 


61010 


21 


TO/ 7 


Ai T/ A"! 

01 3s0^ 


161^l£ 


161212 


22 


<rot»o 


Ai 7/ Ay 
01 isUs 


1 71 71 7 

1 r 1 31 5 


171313 


23 


oQy o 


A1 7y AX 


1 71 / 1 y 
1 rlsls 


171414 


24 


£^05U 


AI 7y 1 A 

01 5*» 10 


1 71 CH 

1 f 1 51 5 


171515 


25 




AI 7y 1 D 


1 71 AI /L 

1 r lolo 


171616 


26 




015*1 IS 


1 71 71 7 


171717 


27 


COJ J 


\j\ to 


UjcUc'J 


52020 


28 




A1 7/- OA 

01 5*»^0 


1 791 91 

1 r <:i<:i 


172121 


■29 


do J J 


A1 

01 5s^£ 




172323 


•30 


OBCi^ 


AI XJ. "3/ 


1 75Z.5/ 
1 r CSCS 


172424 


■31 


DB^7 


A1 

01 jscO 


1 75^5^ 


1 72525 


■32 


OBCB 

COJO 


AI XAXn 


1 75A5/L 
1 r COCO 


172626 


•33 


7B^O 
CO jV 


AI 


1 75757 


^72727 


■34 


cooU 


AI XLX/. 


1 7TA7A 


173030 


■35 


<:00 1 


A1 TZ,TA. 


1 77171 


173131 


;36 


COOC 


A1 XL.Ln 


1 77375 


173232 


;37 






1 77/. 7/. 
1 f JSJS 


173434 


;38 


COO*I 


A1 XLLL 


1 77C7C 


173535 


;39 




AI XLLt^ 


1 77A7A 


173636 


;40 


}B/.^ 
^000 


A1 XZ.^A 
U 1 JS DU 


1 77777 


1 73737 


;41 


7BX.7 
COOf 


AI 


r\LLr\LC\ 
UssUsU 


44040 




OBXB 


Ul JSJS 


1 7Z. 1 Z 1 
( rS IS 1 


17^-141 


;43 


tOOT 


AI 


1 AA5^5 
'OScSc 


164242 


;44 


cofyj 


AI TZ./U^ 


1 7A7^7 
1 f H jS J 


1 74343 


;45 


5B71 


AI XLtsO 


17^^^^ 
1 f SDS5 


174545 


;46 


3B75 
cot C 


AI X/.AZ. 
U 1 JSOS 


1 1 SOSO 


174646 


;47 


cOf J 


AI TAAA 


1 7A 7Z. 7 
1 f S f S f 


174747 


;48 


DB7A 


Al XL7C\ 
U 1 jsf U 


lA^A^A 
l05v5U 


165050 


;^9 


DB7^ 


A1 7Z.75 
U 1 jS r £ 


1 7^1 ^1 


175151 


;50 


COfO 


AI 7Z.7/. 
U 1 jS r 


I05c5c 


165252 


;51 


cof 1 


AI TA7A 
U 1 jS fO 


1 7^7^7 

1 f 5j5j 


175353 


;52 


7B7B 


AI ?^AA 


1 f 5S5S 


175454 


;53 


COf T 


AI T^A3 


1 r 5050 


175656 


;54 




AI ^CA^ 
U 1 J jUs 


1 7^7^7 


175757 


;55 


^OO 1 


AI TC<^ 


1 50UDU 


156060 


;56 


COOC. 


A1'?^1A 
V.' 1 J J 1 U 




176161 


;57 


cOoi 


AI T^l 5 


1 7A5A5 


176262 


;58 




AI <^1Z 


1 7A7A7 


176363 


;59 


P885 


013516 


176464 


176464 


.•60 


2886 


013520 


176565 


176565 


;61 


2887 


013522 


176767 


1 76767 


,62 


2888 


013524 


177070 


177070 


;63 


2889 


013526 


177171 


m\7\ 


;64 


2890 


013530 


\77272 


\77272 


;65 



S£Q 0052 



CZCDADO CD11 CARD READER DIAG HACrll 30A(1052) 26-«AR-80 n :21 



B 5 
PAGE 



53 



ZCDA0.P11 




DATA TABLES 








2891 


013532 


1 77373 

Iff Jl J 


1 77373 




66 






?892 


013534 


If f T f ^ 


177474 




67 






2893 


013536 


1 77575 

Iff J 


177575 




68 






2894 


013540 


1 77676 

Iff Wf w 


177676 




69 






2895 


013542 


030101 


30101 




70 






2896 


013544 


vC vcvc 


20202 




71 






2897 


013546 


130303 


130303 




72 






2898 


013550 


170404 

1 f v^v^ 


170404 




73 






2899 


013552 


1 70505 


170505 




74 






2900 


013554 


170606 

1 f WW 


170606 




75 






2901 


013556 


1 70707 

1 f Vf w 


170707 




76 






2902 


013560 


163210 

1 1 V 


163210 




77 






2903 


013562 


170123 


170123 




•78 






2904 


013564 


1 77654 


177654 




•79 






2905 


013566 


1 74567 


BINEND: 174567 




•80 






2906 
















2907 






;BINARy DECK DATA TABLE 








2908 






;THE VALUE IS THE ENCODED VALUE. 


WHICH 


ORS THE 


OCTAL 


2909 






.-ROUS ONE THRU 


SEVEN 








2910 








COLUMN 


ASCII 


PUNCH 


2911 


013570 


000 


BINCDP: .BYTE 


0 


•1 


SPACE 


BLANK 


2912 


013571 


020 


.BYTE 


20 


,2 


9 


9 


2913 


013572 


010 

V 1 V 


.BYTE 


10 


;3 


8 


8 


29K 


013573 


007 


.BYTE 


7 


;4 


7 


7 


2915 


013574 


00c 


.BYTE 


6 


:5 


6 


6 


2916 


013575 


005 


.BYTE 


5 


;6 


5 


5 


2917 


013576 


004 


•BYTE 


4 


;7 


4 


4 


2918 


013577 


003 


•BYTE 


3 


;8 


3 


3 


2919 


013600 


002 


.BYTE 


2 


;9 


2 


2 


2920 


013601 


001 


.BYTE 


1 


rlO 


1 


1 


2921 


013602 


040 


.BYTE 


40 


;11 


0 


0 


2922 


013603 


100 


.BYTE 


100 


;12 






2923 


013604 


200 


.BYTc 


200 


;13 




12 


292A 


013605 


067 


.BYTE 


67 


r14 






2925 


013606 


117 


.BYTE 


117 


;15 






2926 


013607 


177 


.BYTE 


177 


:16 






2927 


013610 


207 


.BYTE 


207 


;17 






2928 


013611 


267 


.BYTE 


267 


;18 






2929 


013612 


317 


.BYTE 


317 


;19 






?930 


013613 


377 


.BYTE 


377 


;20 






2931 


013614 


046 


.BYTE 


46 


;2^ 






?952 


013615 


056 


.BYTE 


56 


.22 






2933 


013616 


077 


.BYTE 


77 


;23 






2934 


013617 


047 


.BYTE 


47 


:24 






2935 


013620 


067 


.BYTE 


67 


;25 






2936 


013621 


057 


.BYTE 


57 


;26 






2937 


013622 


077 


.BYTE 


77 


;27 






2938 


013623 


105 


.BYTE 


105 


;28 






2939 


013624 


127 


.BYTE 


127 


;29 






2940 


013625 


137 


.BYTE 


137 


;30 






2941 


013626 


107 


.BYTE 


107 


:31 






2942 


013627 


127 


.BYTE 


127 


;32 






2943 


013630 


117 


.BYTE 


117 


;i5 






2944 


013631 


137 


.BYTE 


137 


:34 






2945 


013632 


147 


.BYTE 


147 


;35 






2946 


013633 


167 


.BYTE 


167 


;36 







SEQ 0053 
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ZCDA0.P11 26-«AR-80 11:18 






DATA TABLES 




2947 


013634 


157 








.BYTE 


157 


5f 


29A8 


013635 


147 








• BYTE 


147 


3o 


2949 


013636 


167 








.BYTE 


167 




2950 


013637 


157 








.BYTE 


157 


*»U 


2951 


013640 


177 








.BYTE 


177 


Z 1 


2952 


013641 


204 








.BYTE 


204 


ZD 


2953 


013642 


227 








.BYTE 


227 


X 


2954 


013643 


216 








• BYTE 


216 


• ' / 

HH 


2955 


013644 


237 








.BYTE 


237 


/ C 
'♦J 


2956 


013645 


227 








.BYTE 


227 


/ A 
••O 


2957 


01 3646 


217 








• BYTE 


217 


. Z7 
HI 


2958 


013647 


237 








.BYTE 


237 


ZB 
HO 


2959 


013650 


246 








.BYTE 


246 


. za 


2960 


013651 


267 








.BYTE 


267 


■ cn 


2961 


013652 


256 








.BYTE 


256 


■ C1 

3 1 


2962 


013653 


277 








.BYTE 


277 




2963 


013654 


247 








•BYTE 


247 




296A 


013655 


257 








.BYTE 


257 


. cz 


2965 


013656 


277 








•BYTE 


277 


• cc 


2966 


013657 


305 








.BYTE 


305 


;5o 


2967 


013660 


327 








• BYTE 


327 


1 J' 


2968 


013661 


317 








.BYTE 


317 


; JO 


2969 


013662 


337 








.BYTE 


337 




2970 


013663 


307 








.BYTE 


307 


, ou 


2971 


013664 


327 








.BYTE 


327 


;oi 


2972 


013665 


337 








.BYTE 


337 


tOC 


2973 


013666 


347 








.BYTE 


347 


;o5 


2974 


013667 


367 








.BYTE 


367 


. <LZ 


2975 


013670 


357 








.BYTE 


357 


• AC 

;o5 


2976 


013671 


377 








.BYTE 


377 


; DO 


2977 


013672 


347 








.BYTE 


347 


iOf 


2978 


013673 


367 








.BYTE 


367 


• OB 


2979 


013674 


357 








.BYTE 


357 




2980 


013675 


023 








.BYTE 


23 


. 7ft 


2981 


013676 


012 








• BYTE 


12 


. 71 


2982 


013677 


033 








.BYTE 


33 


. 75 
t ' C 


2983 


013700 


007 








.BYTE 


7 


. 7X 


2984 


013701 


027 








.BYTE 


27 


• 7Z 
! 'H 


2985 


01 3702 


017 








.BYTE 


17 


. 7C 


2986 


013703 


037 








.BYTE 


37 


• 7A 


2987 


013704 


146 








.BYTE 


146 


iff 


2988 


013705 


037 








.BYTE 


37 


• 7fl 


2989 


013706 


347 








.BYTE 


347 


. 70 


2990 


013707 


237 






DiNcNP : 


.BYTE 


237 


. an 
; ou 


2991 


















2992 


013710 


020040 


020040 


U4U 




.ASCII 


/ / 




2993 


013715 


040 


000040 






.ASCIZ 


/ / 




2994 


013720 


005012 


012 






.ASCII 


<12><12><12> 




2995 


013723 


015 


000012 




CRLr : 


.ASCIZ 


<15><12> 




2996 


















2997 


013726 


005015 


051120 




nsui . 


. ASCIZ 


<15><12>/PRESS CARD 


2998 


013734 


020123 


040503 


r»z. 01 55 










^999 


013742 


051040 


040505 












3000 


013750 


020122 


051047 


051505 










3001 


013756 


052105 


000047 












3002 


013762 


005015 


044124 


047105 


nSG2: 


.ASCIZ 


<15><12>/THEN HIT • 



lZCDATO CD11 CARD READER DIAG 
CZCDAD.P'il 26-nAR-80 11 :18 



3005 

500A 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

301J 

3013 

30U 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3051 

5052 

5035 

505A 

5035 

3056 

5037 

5038 

5039 

3040 

3041 

3042 

3043 

3044 

5045 

5046 

5047 

5048 

5049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 



01 5770 
013776 
014004 
014012 
014020 
014026 
014027 
014034 
014042 
014050 
014056 
014062 
014070 
014076 
014104 
014112 
014115 
014122 
014130 
014136 
014144 
014152 
014160 
014166 
014174 
014202 
014210 
014216 
014224 
014232 
014240 
014246 
014254 
014262 
014270 
014276 
014302 
014310 
014316 
014324 
014332 
014334 
014342 
014350 
014356 
014364 
014372 
014400 
014406 
014414 
014416 
014424 
014425 
0H432 
0U440 
014446 



044040 
047503 
042525 
052040 
047117 
000 
015 
051523 
020104 
051105 
050117 
005015 
047111 
050125 
042526 
020123 
015 
053117 
020114 
020123 
052040 
050116 
050117 
005015 
051117 
042122 
052040 
050116 
050117 
005015 
047440 
020124 
042513 
051505 
0.,:.440 
053517 
047125 
047510 
041440 
046040 
000123 
005015 
042040 
044124 
052111 
042116 
042510 
047440 
020105 
020124 
047510 
000 
015 
042504 
051101 
046517 



052111 
052116 
020047 
042510 
047523 

050012 
041440 
042522 
023440 
000047 
044124 
042524 
020124 
020114 
000 
051012 
020105 
040503 
051106 
042510 
052125 
042520 
042522 
020105 
020123 
042510 
052125 
042520 
052520 
052125 
052123 
020122 
052523 
046522 
020116 
044524 
050120 
042510 
043511 

047510 
053517 
020105 
044103 
051105 
041440 
020106 
047111 



D 5 

I1ACY11 30A(1052) 26-MAR-80 11:21 PAGE 55 
DATA TABLES 

023440 
047111 
047117 
041440 
042';i4 



■f J 0055 



042522 
051101 
042101 
052123 

020105 
051122 
042514 
040527 

046505 
046101 
042122 
046517 
044440 
044040 
000122 
052123 
040503 
047524 
044440 
044040 
000122 
046114 
052520 
041501 
051120 
042522 
042040 

020114 
051105 
045503 
052110 

042114 
020116 
053525 
052440 
052040 
050101 
044124 
052520 



I1S63; .ASCI2 <15><12>/PRESS CARD READER 'STOP'/ 



HSG4: .ASCIZ <15><12>/THE INTERRUPT LEVEL WAS / 



MSG5: .ASCIZ <15><12>/REMOVE ALL CARDS FROM THE INPUT HOPPER/ 



MSG6; .ASCIZ <15><12>/REST0RE CARDS TO THE INPUT HOPPER/ 



MSG7: .ASCII <15><12>/PULL OUTPUT STACKER PRESSURE ARM DOWN / 



.ASCIZ /UNTIL HOPPER CHECK LIGHTS/ 



MSGS: .ASCII <15><12>/HaD DOWN THE SWITCH UNDER THE CAP OF THE INPUT / 



050120 051105 



051412 
040440 
020104 
052040 



044514 
041440 
051106 
042510 



.ASCIZ /HOPPER/ 

MSG9: .ASCII <15><12>/SLIDE A CARD FROM THE OUTPUT HOPPEP ABOUT HALF AN INCH / 



fZCDADO con CARD READER DIAG 
CZCDAO.Pn 26-*1AR-80 11:18 



3059 

3060 

5061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

5082 

5083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

5091 

5092 

5093 

3094 

5095 

5096 

5097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 



014454 
014462 
014470 
014476 
014504 
014512 
014516 
014524 
014532 
014540 
014546 
014554 
014562 
014570 
014576 
014603 
01 461 C 
014616 
014624 
014630 
014636 
014644 
014652 
014660 
014666 
014674 
CI 4702 
014710 
014716 
014724 
014732 
014740 
014746 
014754 
014762 
014770 
014773 
015000 
015006 
015010 
015016 
015024 
015032 
015040 
015046 
015053 
015060 
015066 
015074 
015102 
015110 
015116 
015122 
015130 
015133 
015140 



047440 
020124 
051105 
052125 
020106 
041516 
005015 
045503 
020117 
042522 
040505 
047514 
020107 
044120 
042503 

015 
053117 
046515 
051101 
005015 
052040 
052125 
052123 
020122 
047440 
052040 
005015 
020105 
040511 
045522 
052110 
045503 
020104 
024040 
027067 
043117 

124 
044522 
024520 
005015 
042510 
047524 
052040 
050116 
040524 

015 
020113 
051101 
041440 
020116 
042524 
040505 
005015 
020101 

015 
051101 



052125 
047510 
040440 
044040 
047101 
020110 
020040 
044440 
044124 
042101 
026104 
045503 
044124 
052117 
046114 
051012 
020105 
042105 
000104 
047510 
042510 
052520 
041501 
040507 
042520 
042510 
046120 
050123 
020114 
046055 
041440 
041440 
047117 
042523 
027062 
040 
042510 
042524 

052101 
041040 
020115 
042510 
052125 
045503 
042012 
020040 
020104 
046117 
050040 
047122 
000104 
046101 
000 
041012 
000131 



WACrll 



052520 
050120 
047502 
046101 
044440 

040502 
052116 
020105 
044040 
04(040 
047111 
020105 
020117 
000 
046505 
040512 
041440 

042114 
047440 
020124 
042513 
042524 
027116 
000116 
041501 
041505 
040504 
043511 
042510 
051101 
054514 
020105 
020062 

053440 
052455 

052040 
052117 
043117 
044440 
051440 
000 
041505 
041440 
020040 
046525 
052101 
051040 

044120 
047111 



E S 

30A(1052) 26-HAR-80 11:21 PAGE 56 
DATA TABLES 



SEO 0056 



.ASCII <15><12>/ BACK INTO THE READ HEAD. BLOCKING THE PHOTO CELL/ 



HSGIO: .ASCIZ <15><12>/REMOVE JAMMED CARD/ 

HSG11: .ASCIZ <15><12>/HOLD THE OUTPUT STACKER GATE OPEN. THEN/ 



MSG12: .ASCII <15><12>/PLACE SPECIAL DARK-lJGHT CHECK CARD ONLY (SEE 7.2.2 OF / 



.ASCII /THE WRITE-UP)/ 



.ASCIZ <15><12> /AT THE BOTTOM OF THE INPUT STACK/ 



MSG13: .ASCIZ <15><12>/DECK CARD COLUMN PATTERN READ/ 



MSG14: .A'-CIZ <15><12>/ALPHA / 
MSG15: .ASCIZ <15><12>/BINARy/ 



^CDADO CD11 CARD READER OlAG 
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F 5 
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DATA TABLES 



SEO 0057 



3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

31 2A 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

31 34 

3135 

3136 

3137 

3138 

3139 

3140 

3K1 

3K2 

3U3 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

il61 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 



015144 

015152 

015160 

015165 

015172 

015200 

015206 

015214 

015222 

015230 

015236 

015244 

015247 

015254 

015262 

015270 

015276 

015304 

015312 

015320 

015324 

015332 

015540 

015346 

015354 

015362 

015370 

015376 

015404 

01 5412 

015420 

015423 

015430 

01 5436 

015444 

015452 

015460 

015466 

015474 

015502 

015510 

0 5516 

0- 5524 

015532 

015540 

015546 

015551 

015556 

015564 

015572 

015600 

015606 

015612 

015620 

015626 

015634 



005015 
032461 
051440 

015 
042105 
020105 
0201 ?2 
052111 
047101 
051505 
047117 
023505 

015 
030440 
020123 
005015 
047115 
020104 
051504 
051117 
005015 
047101 
020117 
020123 
050116 
050117 
005015 
020123 
043117 
020105 
047117 

015 
020116 
044524 
047524 
052125 
020124 
005015 
042514 
041440 
042040 
040440 
052111 
052116 
020047 
042510 

015 
047523 
052116 
042516 
020104 
040505 
005015 
050040 
020120 
053524 



044502 
053440 
05210^ 
051012 
020131 
051105 
047503 
047511 
020104 
020123 
044524 

000 
041012 
020062 
042523 
047503 
051040 
041440 
042440 
000123 
052520 
020131 
040503 
047111 
052125 
042520 
051120 
047105 
043040 
052502 

000 
053412 
051120 
043516 
051520 
044040 
047101 
044523 
041040 
041531 
053517 
042116 
023440 
047111 
047117 

000 
041412 
042514 
046111 
041440 
051511 
000104 
044124 
052125 
044124 
020117 



020124 
051501 
000 
046505 
044124 
047522 
042116 
020116 
051120 
04U47 
052516 

052111 
040527 
000124 
052514 
040505 
051101 
051122 

020124 
053524 
042122 
044440 
044040 
000122 
051505 
020104 
046111 
052124 

042510 
0471 1 1 
051440 
050040 
046101 
000104 
043516 
051525 
042514 
026116 
044040 
047503 
042525 
052040 

047117 
052440 
047440 
051101 
051040 

047105 
052440 
020105 
053523 



MSC16: .ASCJZ <15><12>/BIT 15 WAS SET/ 

MSG17: .ASCI2 <15><12>/REHEDr THE ERROR CONDITION AND PRESS 'CONTINUE V 



MSG18: .ASCIZ <15><12>/BIT 12 WAS SET/ 



MS619: .ASCIZ <15><12>/COLUMN READ CARDS ERRORS/ 



MSG20: .ASCIZ <15><12>/PUT ANY TWO CARDS IN INPUT HOPPER/ 



MSG21: .ASCIZ <15><12>/PRESS END OF FILE BUTTON/ 



MS622: .ASCIZ <15><12>/WHEN PRINTING STOPS PUT HALT AND/ 



MSG23: .ASCIZ <15><12>/SINGLE BUS CYCLE DOWN. AND HIT 'CONTINUE* ON THE/ 



MSG24: .ASCIZ <15><12>/CONSOL£ UNTIL ONE CARD IS READ/ 



MSG25: .ASCJZ <15><12>/THEN PUT UP THE TWO SWITCHES AND HIT/ 



CZCDADO con CARD READER DIAG 
CZCDAD.Pn 26-WR-80 11:18 



3171 


015642 


0521 1 1 


044105 


3172 


015650 


040440 


042116 


3173 


01 5656 


052111 


000 


3174 


015661 


015 


023412 


3175 


015666 


052116 


047111 


3176 


01 5674 


020047 


047117 


3177 


01 5702 


042510 


041440 


3178 


015710 


047523 


042514 


3179 


015715 


015 


041412 


3180 


015722 


040504 


030104 


3181 


01 5730 


ft Tftf A / 

030504 


020061 


3182 


015736 


042122 


ft f 4 ft y ft 

051040 


3183 


015744 


Ay Cft y 

042504 


ft **ft 4 1 *1 

020122 


3184 


015752 


fty Tf fti 

043501 


ftft ft 

000 


3185 




ft 4 P Z 

015756 




3186 








3187 








3188 


015756 


ft4 

012767 


ft 4 Z ftftZ 

016006 


3189 


015764 


ft 4 ftft y z 

010046 




3190 


015766 


ft 4 ft 4 y z 

010146 




3191 


01 5770 


ft 4 ft "^y z 

010246 




3192 


015772 


ft 4 ft^ / £. 

010346 




3193 


015774 


ft4 fty y z 

010446 




3194 


01 5776 


ft 4 ftC y z 

010546 




3195 


016000 


A 4 ftZ Z "7 

01066/ 


ftft A A 

000036 


3196 


ft 4 Z />ft / 

016004 


ftftftftftft 

000000 




3197 








3198 








3199 


016006 


ftl 7 

012767 


01 306 


3200 


016014 


ft4 Z "7ftZ 

016706 


ftftftA*^*^ 

000022 


3201 


ft 4 Z ft 1ft 

016020 


01 2605 




3202 


ft4 Z ft^^ 

016022 


ft4 ^Zft/ 

01 2604 




3203 


ft 4 Z ftl / 

016024 


012605 




3204 


ft^ Z rt'^Z 

016026 


01 2602 




3205 


ft 4 Z ftTft 

016030 


012601 




3206 


ft 4 Z ftT 1 

016032 


A1 1Z.AA 

012600 




3207 


ft 4 y ftT / 

016054 


ft 4 Z 74 Z 

016716 


1 ahhOO 










3209 








3210 


016042 


000000 




3211 








3212 


016044 


000000 




3213 




000001 
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DATA TABLES 

051505 
044040 

047503 MSG26: .ASCJZ <1 5x1 2>/' CONTINUE' ON THE CONSOLE/ 
042';25 
052040 
047117 
000 

041532 MS627: .ASCIZ <15><12>/CZCDAD0 CDII CARD READER DIAG/ 

041440 

040503 

040505 

044504 

.EVEN 



SEO 0058 



162040 POUR: 



162010 RES TOR: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



WES TOR, 24 
10, -(6) 
XI .-(6) 
Z2.-(6) 
13. -(6) 
X4,-(6) 
X5.-(6) 
Z6,SAV6 



#P0WR,24 

SAV6,X6 

(6)+.X5 

(6;+.X4 

(6)+,X3 

(6)*,X2 

(6)*. 11 

<6)+.X0 

RETURN. (6) 



.-START TEST OVER 



SAV6: 0 
BUF8EG: 0 



.END 



CZCOAt>0 CD11 
LZCDAD.P11 



CARD READER DIA6 
26-MAR-80 11:18 



ALLDON 

ALPCO 

ALPCDP 

ALPEND 

ALPENP 

ALP1 

BEGIN 

BELL 

BINCD 

BINCDP 

BINE NO 

BINENP 

BKGM) 

BKGND1 

BUFBEG 

BUFEND 

B.CK 

CARDin 

CDBA 

COCC 

CDCNT 

CDPKO 

CDPKI 

CDREAO 

CDST 

CD1000 

CHGD1 

CKERR 

CKERR1 

CKERR2 

C»CERR3 

CKFAIL 

CKHLT 

CKLOOP 

CKL0P1 

CKL0P2 

CKL0P3 

CKLP1 

CKNOHD 

CKNOPK 

CKOfFL 

CKOVR 

CK0VR1 

CKREAD 

CKRF 

CKSAME 

CKSTRT 

CLCNT 

CONTC 

CONTO 

CONT20 

C0Nr21 

CONT/ 



006334 
012750 
013210 
013206 
0^3327 
004336 
001000 
012166 
013330 
013570 
013566 
013707 
004524 
004536 
016044 

006514 
012330 
012132 
000506 
000504 
006526 

012134 
012135 
004522 
000502 
000540 
012750 
011676 
011720 
01 1 744 
011710 
011750 
012114 
011530 
011464 
011652 
011626 
011610 
012002 
012046 
012204 
01 1 502 
012060 
011564 
000534 
011362 
011510 
006530 

007116 
004360 
003734 
004046 
001646 



1710 

1360 

2743# 

1361 

2822* 

1355 

701 
1336 
1356 
291 1# 
135? 
2990/r 
1389# 
1392# 

857 
1377 
1411* 
2518 
2374* 

726* 

725ft 
1352* 
1708* 
2376* 
2379* 
1384 

724# 

740# 
2658* 
2413 
2430 
2437 
2432# 
2417 
2447 
2397# 
2ZB6M 
2415 
2416ir 
2410* 
2449 
2457 

776 
2387 
2461 
2399 

738# 

711 
2393* 
1351* 
2424* 
1870 
1359 
1255 
1278 

929 



2327 2431 



1395 



2499* 



949 
1976 
1414 


975 
2024 
1528* 


1015 
2056 
1529* 


1055 
2092 
1530 


1095 
2121 
1764* 


1132 
2157 


1172 
2222 


1212 
2295 


1248 
2405 


1270 
3212* 


2422 


2479* 


















1466* 


1555 


1560 


1563* 


1585* 


1673 


1685* 


1686 


1688* 


1699 


2386* 
2383* 


2480* 
2384* 


2389* 


2416 


2481* 
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CROSS REFERENCE TABLE — USER SYMBOLS 

1713* 
2659* 

2738* 

1360* 
761* 
1715 
2826* 

2905* 

1390 
1393 
891 
1663 
1412* 
2532* 
2375* 
746 
745 
1441 
1709 
2378* 
2381* 
1386 
744 
1776* 

2429* 
2436* 
2439 
2433 
2423 
2472* 
2421 
2391 
2422* 
2420 
2411 
2452* 
2462* 
855 
2390* 
2466* 
2401 

2371* 
2434 
1426* 
2425 
1875* 
1363* 
1259* 
1281* 
938* 



SEO 0059 



922 
1796 
1413* 

2376 



1444* 
1769* 
2380* 
2382* 
1388* 



1778* 2174 



2442* 

2445* 

2427 

2426 
2441 

888 
2404* 



2443 



2473 2475 



2489 2506* 2512 



1427 
2453 



1541* 1542 1690* 1691 1693* 1707* 1770* 2404* 2418* 2419 



CZCDADO 


CD11 CARD READER 01 AG 


MACYll 


30A(1U52) 


26-nAR-80 1 1 


CZC0A0.P11 


?6-#lAR-80 11:18 




CROSS REFERENCE 


TABLE - 


en MT 




732# 


860* 


870* 


896* 


901* 






739# 






1838 


1867 


vnLr 




1788 


1794 


1822 


2148 


2183 


?190 


2265 


2285 


HATRCT 




1521 


16?6 


17S9* 






r>*TST 




1335 


1351# 


1757 


1760 




l/Lr^ 1 1 




1366 


1370# 


1683* 










1358* 


1362* 






HFf If 




1726 


1729 


I753<r 










1391* 


1394* 


1772* 






ucnr I. VI 




2377* 


2388* 


2397* 


2403* 


2414 






907 


910^1' 








rVMMV = 


000000 
www 


667# 


1683 








f> 1 


01P410 


2544 


CAM 

2550# 








U • c 




2546 


2548 


2553* 










1333* 














704 


1 77w 








FRFI r% 


WV J JC 


7:>7# 


1353* 


1678 


1630* 


2396* 


FR1 7rn 


vsjoj J** 


1777 


1779# 


2328 










717 


1776Xf 






797 


HI T S 


1 wv 


664# 


780 


784 


788 






846 


850 


864 


868 


875 






936 


954 


987 


991 


1005 






1122 


1144 


1148 


1162 


1184 






1305 


1309 


1313 


1317 


1321 






1501 


1505 


1509 


1513 


1517 






1630 


1634 


1638 


1642 


1645 






1826 


1830 


1834 


1843 


1847 






1905 


1909 


1922 


1926 


1930 






2003 


2007 


2031 


2047 


2053 






2135 


2139 


2164 


2197 


2202 






2260 




2292 


2301 


2305 






1717 


1723* 






1048 


INI T 


012K0 


916 


944 


968 


1008 




1787 


4 o 4 n 

1819 


1860 


1939 


1987 


INTFLG 


000524 


733# 


750* 


983 


985 


996 






1065 


4 A*9^ 

1076 


1078* 


1083 


1103 






1160 


4 i OA 

1180 


1182 


1193 


1195* 


INTVf 


000516 


730# 


7h7 


748 


749* 




ISR 


004572 


1402 


4 y AP M 

1405* 








I <^RflF 


0047H 


1425 


1433* 








t SRDF 


004742 


1420 


4 y / 4 M 

1441* 










005124 


1468 


1476* 








ISRDI 


004750 


1443# 


4 y y / 

1464 








ISRD? 


005062 


1442 


1467* 








ISRER 


005136 


1406 


1483* 








ISREI 


005 1A4 


1483 


1487* 








/ SRf ? 


005176 


1488 


1499* 








ISRE5 


005206 


1492 


4 C A7 M 

1503* 








I SRLP 


004644 


1419# 


1428 


1431 






ISRNC 


004636 


14I8# 


4 y AC 

1495 








ISRNX 


004720 


1434# 










ISRNX1 


004736 


1436 


4 y 7 A M 

1438* 








ISRRT 


004650 


1421# 




1457 


1479 




ISRST 


005256 


1485 


1497 


1521* 




2553* 


ITCNT 


012436 


2346* 


2350* 


2547 


2549* 
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1250* 


1251* 


1418* 


1424* 


1533* 


1539* 


1614* 




1916 


1942 


1967 


1991 


2015 


2043 


2083 


2111 


2322 


2452 


2522 


2531 


2995* 








2438 


2440 


2456 


2482* 










es'to 
















oU*» 


01 U 


fil 7 

01 f 


flOl 

Oc 1 


0£0 


03U 


B77 


az 1 
0*i 1 


Ofo 


BOO 


OVj 


QA7 


yuo 


01 0 

y 1 c 


QOB 

y^o 


Q70 

yjc 




1 nn 




1 Ail7 


1 A71 


IUOj 


1 1 A7 

1 1 \}f 


1111 
1 1 1 1 


1 loo 




1 OOA 


1 00/ 


1 0TB 


1 OQA 

1 C JO 


1 OBA 
1 COU 


1 7A1 

1 JV 1 


1 1OC 


1 too 


1 / AA 


1 ZAQ 


1 <t to 




1Z.Q1 


1 ZOA 

1 HTO 


1 con 


1 

1 


1 C70 




1A1 A 


lOi J 


1 A1 0 
1 0 1 7 


1 AOC 
1 Oc J 


1732 


1736 


1740 


1748 


1801 


1805 


1809 


1813 


185^ 


1855 


1872 


1877 


1881 


1885 


1897 


19U1 




1 O/ A 


iacA 
IVjU 


1 oc/ 


1 yjo 




lyyj 


1 ooo 


cVOc 


£Uo6 


0A7A 


0A7Z 


OAOO 

cuyy 


01 IB 
Clio 


01 07 


01 71 

C 1 J 1 


ccOf 


11 


0071 

ceil 


OOT5 
CCJJ 


007Q 


00Z.7 


00^1 


00^^ 
CC JJ 




071 7 


o/ zo 


ozoc 

c*»y3 










1088 


1125 


1165 


1205 


y2i*2 


1264 


1287 


1370 


2037 


2105 


2179 


2191 


22zy 


2393 


2489* 




998* 


1003 


1023 


1025 


1036 


1038* 


1043 


1063 


1105 


1116 


1118* 


1120 


1140 


1142 


1153 


1155* 


1200 


1229 


1231* 


1236 










2557* 

















CZCDADO CDII 
C7CDAD.Pn 



CARD READER OlAG 
26-«AR-80 11 :18 



ITMAX 
LASTCO 
LOOPS 
L0OP6 
.L00P6A 
L00P6B 
LSTCD1 
PtSGl 
HSG10 

Mson 

MSG12 

MSG13 

HSGK 

MSG15 

MSG16 

MSG17 

MSG! 8 

MSG 19 

MSG? 

MSG20 

MSG21 

MSG22 

MSG23 

MSG24 

MSG25 

MSG26 

MSG27 

MSG3 

MSG4 

MSGS 

MSG6 

MSG7 

MSG8 

MSG9 

NOHEAO 

NOP = 

NOTRP 

NOfRPl 

NXCRO 

OFf^SET 

ONINT 

ONLINE 

PAICSET 

POUR 

PRINT 

PRINTS 

PRINTF 

PRINTL 

PRINTR 

PRINTS 

PRINTT 

PRINTl 



01245A 

006252 

001350 

001520 

001474 

001512 

006266 

013726 

014603 

014630 

014702 

015053 

015122 

015133 

015144 

015165 

015247 

015270 

013762 

015324 

015370 

015423 

0(5466 

015551 

015612 

015661 

015715 

014027 

014062 

014115 

014166 

014232 

014334 

014425 

006164 

000240 

001026 

004366 

006312 

006512 

006444 

006400 

006114 

015756 

012230 

012574 

012666 

012650 

012614 

012624 

012660 

012560 



PRINT2 012562 
PRINTS 012572 
PROC 000530 



743* 
1494 
866# 
906* 
899# 
900 
1700# 
1836 
2146 
307&r 
2282 
1681 
1362 
1358 
3115# 
2510 
2509 
2451 
1821 
2180 
2188 
1789 
1790 
1791 
1792 
1793 
763 
1820 
999 
1940 
1965 
1988 
2040 
2107 
1679 
663* 
767* 
1365* 
1429 
1379* 
1742 
1724 
1387 
689 
692 
1591 
2628 
2629* 
1471 
1001 
2619 
1000* 
2458* 
2611* 
^613* 
735* 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0061 



1781* 

1622 
871 

902 
905* 
1702 
1915 
3074* 

3085* 
3104* 
3111* 
3113* 

3118* 

3127* 

3130* 

1837 

3135* 

3141* 

3146* 

3152* 

3161* 

3167* 

3174* 

3179* 

1866 

1039 

2038 

2081 

3032* 

3044* 

3055* 

1682* 

770 
1368 
1433 
1652 
1746* 
1728* 
1437 
3188* 
2516* 
1594 
2634* 
2643 
1474 
1041 
2632* 
1040* 
2463* 
2617 
2615* 

858* 



2347* 
1660 



1966 



1941 



2706 
1079 
3019* 
2262 



1544 
1654* 



1670* 
3199 



2547 
1698* 



3009* 
1156 

2320 



1548 
1658* 



2459 2615* 



2556* 



2014 2042 2082 2110 2147 



2181 



2263 2284 



2321 



2997* 



1990 2039 2182 2189 2264 



3002* 



1196 
3026* 



1232 3014* 



1707* 
1763* 



1687 


1692 


2454 


2464 


2468 


2471 


2524 


1081 


1158 


1198 


1234 


2623* 






1080* 


1157* 


1197* 


1233* 


1470* 


1473* 


1590* 


2467* 


2470* 


2523* 


2526* 


2529* 


2610* 


2630* 


2626 


2644 


2648 








2621* 


2623* 


2624* 


2638* 


2639 


2642* 




87? 


897* 


905 











2527 2530 



1593* 
2632* 



1686* 
2634* 



2621* 

1691* 2453* 



CZCDADO Cr>11 CARD READER DIAG 
CZCDAD.P11 26-HAR-80 11:18 



PS = 


1 77776 


662# 






926* 






1050* 






1130* 






1245 






1374* 






1 A^ 

1963* 






2088* 






2317 


PSR 


005262 


^ / AT 

1403 


PSR8E 


005376 


i c / A 

1540 


PSRDE 


005A50 


^ 535 


PSRDE3 


005636 


1 58/^ 


psrdI 


005 A 56 


1 36<:* 


PSRD2 


005570 


1561 


PSRER 


005650 


1524 


PSRE1 


005656 


1602 


PSRE2 


005714 


1 XAT 

1607 


PSRE5 


005754 


1616 


PSREA 


005764 


1 ^ "DA 


PSRLP 


0053^6 


i cTy M 


PSRNC 


005320 


1 d33* 


PSRNX 


005402 


i cy A« 


PSRNX 1 




1 CC1 

1 33 1 


PSRRT 




1 D30» 


PSRST 


00602H 


i iLAy 

1 ou<» 


PTOFF 


00653^: 


1 771 if 


RES TOR 


016006 


31 OO 


RESTRT 


001020 




rtETRNX 


01 1360 


£330* 


Rc TURN 


Ol£H»»0 


fO 1 * 


SAvrC 


r>i "J1CA 
01c330 




SAVPS 


012352 




SA\/R2 


012342 


2536* 


SAVR3 






SAVRA 


A1 OT/ ^ 

012346 




SAV6 


Ai z Ay ^ 

016042 


31tj* 


SCOPE = 


1 Ay y AA 
104<>00 


665* 






1 1 oy 

1 1 CH 






01 A/ 

£10h 


SCOPEC 


Ai '5*7Cy 
01<:3d4 


6y> 


SECN 


AI A^y o 
0106^^: 


OOI 7ji 


SE TUP 


Ay\Acy 
000542 


7y 


SET! 


AA^^ 

003622 


1 TTA 

1<:3U 


SET2 


AATy oy 


1 1 Qy 


SET3 


003210 


lie/ 


SE T4 


AA^^7/ 


1117 


SET J 


OOl 5f 6 


1 n77 


SET6 


00236<: 


1 AT7 

103/^ 


SET/ 


00<:l^O 




C f 7P 


\AJ0j I V 




SPACE 


013715 


1472 


SRETRN 


006030 


1438 


SRETR1 


006050 


1653 


SRETR3 


006060 


16S8# 


SRETRA 


006070 


1657 
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y Of * 


771 * 

f f 1 " 




y*»o* 


Qy.7 


070* 
7f U* 


071 

Tf 1 


i AC1 

1051 




1 nc7* 


1 Uj7" 


1 1 lA* 
1 1 JO* 


1 1 A7* 
1 1 Of * 


1 1 AB 
1 1 OO 


1 1 AO* 

1 1 Ot" 


1 OLA* 


1 1 JJ* 


1 COO" 


i?a7 

1 CO* 


1 77^ 


1 00c* 


1SA7 
1 OO J 


1RA^* 

1 OOH " 


107?* 

1 yt c " 


1077 

1 Tf J 


1 Tf H" 


C V 1 V 


tU07 


CV7U" 


c 1 sc" 


c 1 •♦J 


C J 1 0* 


C J*»J" 


C JH J" 


7^S1 * 










1 eAB# 








1 CAnn 








1 eOAir 








1 ^H'K 
1 jOj 








1 ^BA^ 
1 jOOw 








1 OUc» 








1606# 








1615/lf 
















1 Ojcw 








1543 


1546 


1646 




1624 


















1 J r O 


1 soo 












3199# 








1338 


1756 






2339* 


2349 


2351 


2352* 


774* 


1780* 


2348* 


2371* 


CjCJ 


















JC 1 






77S 

f f J 


700 


O 1 c 


83? 


1 1 0*f 


1 C vH 




1 cue 


?1 78 

C 1 f o 


CCOV 














CCHC 








no 


1 770 














1 ?nn# 








1 1 ov^ 
























1043# 








1003# 








1380 


1412 


1413 


1418 


1589 


1592 


1684 


1689 


1557 


1652# 


1655 


1659 


1656* 









1661 
1660* 
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o5y* 


0' f ■ 


fi07 
OV' 


oyo* 


Tf c" 


G7<* 

yf J" 




mm* 


1090* 


1091 


1092* 


1093* 


1170* 


1176* 


1207* 


1208 


1268* 


1275* 


1277* 


1289* 


1888* 


1889 


1890* 


1912* 


2011 


2012* 


2020* 


2021 


2144* 


-.53* 


2154 


2155* 


2552 


2554* 


2558* 


3207 


852 


884 


914 


941 


1285 


1333 


1786 


1818 


1529 


1533 


1652* 


1656 


1694 


2455 


2466 


2469 



SEQ 0062 





01 s* 

T 1 O" 


01 0 
y 1 y 


TCv" 




imp* 
1 w 1 c " 


101 7« 

1 V 1 J" 


1010* 


1099* 


1127* 


1128 


1129* 


1209* 


1210* 


1216* 


1244* 


1290 


1291* 


1365* 


1369* 


1913 


1914* 


1961* 


1962 


2022* 


2077* 


2078 


2079« 


2217* 


2218 


2219* 


2316* 


967 


1007 


1047 


1087 


1859 


1938 


1986 


2036 


1662 


1698 


1762* 




2525 


2528 


2995* 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SfO OCX-? 



SRVC 

STACK 

.JR 



TEMPI 

TEMP2 

TEND 

TEST 

TESTA 

TESTS 

TESTC 

TESTD 

TESTE 

TESTF 

TESTG 

TESTH 

TESTI 

TESTX 

TESTI 

TESTU 

TESTIO 

TEST11 

TEST12 

TEST13 

TESTU 

TESTIS 

TEST16 

TEST17 

TEST2 

TEST20 

TEST21 

TEST2? 

TEST3 

TEST4 

TESTS 

TEST6 

TEST7 

TINA21 

TINTC 

TINTCA 

TINTCB 

TINTD 

TINTDA 

TiNTE 

TINTEA 

TINTF 

TINTFA 

TINTG 

TINTGA 

TINTM 

TINTI 

TINTIA 

TINTIO 

TINT11 

TINT12 



OOA552 
000500 
177570 



006516 
006520 
006524 
001054 
006572 
006704 
007032 
007332 
007542 
007746 
010232 
011042 
010520 
011252 
001062 
001064 
001656 
001744 
002160 
002374 
002610 
U03006 
003222 
003436 
001116 
003634 
003744 
004060 
001164 
001234 
001304 
001424 
001 534 
004042 
007112 
007174 
007272 
007464 
007530 
007670 
007734 
010154 
010220 
010430 
010474 
011236 
010704 
010742 
001726 
002070 
002304 



1373 
700 
661# 
1611 
2545 
1698* 
1699* 
1357* 

764 
1780 
1818# 
1859# 
1938# 
1986# 
2036# 
2104* 
2176 
2175 
707 
775# 
■'74 
94U 
967# 
984 
1024 
1064 
1104 
1141 
1181 
790* 
1221 
1262^ 
1285# 
798 
832# 
852# 
869 
904 
1274 
1861 
1887 
19r 
1960 
1971 
2009 
2019 
2076 
2087 
2141 
2152 
2315 
2216 
2241 
945 
969 
1009 



1398* 








703 


706 


710 


716 


769 


1334 


1354 


1367 


»723 


1754 


2338 


2341 


1701* 


1765# 






1700* 


1703 


1766* 




1361* 


1421 


1448 


1463 


768 


774* 






1786* 









2280* 
2178* 
2336* 
2558 
776* 



812* 



879 
914* 
1279* 
1872* 
1894* 
1919* 
1970* 
1980* 
2018* 
2028* 
2086* 
2096* 
2151* 
2161* 
2325* 
2227M 
22^3» 
954* 
989* 
1029* 



723* 
1383 
2374 



1385 
2398 



1435 
2400 



1536 1553* 1567 



1467 
2446 



1582 



1476 
2472 



1550 
2516 



1586 
2532 



1596 
2543 



1671* 1768* 



986 


988 


1002 


1004 


1007* 


1026 


1028 


1042 


1044 


1047* 


1066 


1068 


1082 


1084 


1087* 


1106 


1108 


1119 


1121 


1124* 


1143 


1145 


1159 


1161 


1164* 


1183 


1185 


1199 


1201 


1204* 


1235 


1237 


1240* 







884* 
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TABLE - 


- USER SYMBOLS 












CCA 
SCO 


TINT 13 




1 A/ A 

IOhV 


106t# 
























T INTIA 


00275A 


4 ADA 

1089 


1 1 AOm 

1 'Ot^ 
























T JNT15 


AAT in 

0031 52 




1 146* 
























T INT 16 


0033*>6 


1166 


1 186* 
























TINT17 


AATf / J 

0035A4 


1206 


12'' 2* 
























TINT20 


AAT M'^Z 

003<'<?6 


12h3 


1256* 
























T INT^l 


00<r016 


1205 


12/3* 
























TINT^2 


00*t132 


12So 


1 OCl^i# 

1 296* 
























TINT7 


001626 


Ai 7 


930* 
























TLOPC 


r\A71 A1 




1869 
























TLOPG 


010260 


/'1 12* 


01 1 T 

21 13 
























Tl QPGA 


010266 


21 1 4# 


01 1 c 
21 1 5 
























TLOPGB 


A1 ATI L. 

010316 


2123# 


oi o/ 
2124 
























TLOPH 


All AV / 




0007 
























TLOPHA 


A1 1 ATI 

01 10/2 


22oB^ 


oooo 
2289 
























TLOPHB 


A1 1 1 

01 1 1 




2298 
























TAT /* nf^ 

TOT CRD 


A1 '^1 YA 

012130 


2394* 


O/ AAa 

2409* 


2467 


2478* 




















TOTcHH 


A1 11 

012126 


2 39 J* 




?470 


2477* 




















TPB 


000512 




OCA1 

2501 * 
























TPS 


000510 


fdrm 


O/ OQ 

2499 
























TRAPX 


001036 


^66 


























TRFLG 


000526 




7C1 

/51 » 


765 


1337* 


1363 


1753* 
















TRPI 


AAy T^Z^ 

00*i376 


1 7Z./ 

1364 


136/* 
























T A TB An 

iRTRAP 


00051^ 


6B3 


/29* 
























T P T A AT 

TSTART 


AAy C Tl 

006522 


1356* 


1 TZ.Aa 

1360* 


1376 


1423 


1454 


1460 


1465 


1 CTfi 

1 53o 


1 ceo* 
1 55^* 


1 k7T 

1 j/5 


1 C7Q 
15/9 


1 CO/. 


1 o/u* 






1 7Z 7M 

1 767# 


























TYHEAD 


006K6 


1469 


1 c oo 

1588 


1678* 






















TYPE s 


AAAAAy 

000004 


666* 


7^7 

/63 


999 


1039 


1079 


1156 


1196 


1 OTO 

1232 


1 / 70 

14/2 


1 COO 

1 589 


1 COO 

1 592 


1 iLOl 

1 681 


1 ADO 

1682 




1684 


1 zoo 
1689 


1694 


1788 


1789 


1790 


1791 


1 7Q0 

1 fyc 


1 7QT 

1 /93 


1 7Q/ 

1 /y»» 


1 OOA 

1 B2U 


1 001 

1 82 1 


1 ooo 
1022 






i D TZ 

1836 


1 077 

183/ 


1838 


1866 


1867 


1915 


1916 


1 oy A 
1940 


1 oy 1 
1 94 1 


1 oy o 
1942 


1 OZ.C 

1965 


1 QZ.X 

1 966 


1 ^L7 

196/ 






1988 


1 AAA 

1990 


1991 


2014 


^A4 f 

2015 


2038 


2039 


OAy A 

2040 


OA/ 0 

2042 


OAy T 

2043 


0A01 

2U8 ' 


OAOO 

2082 


OAO 7 

'o3 






21Uo 


01 A7 
21 U/ 


2110 


2111 


2146 


2147 


2148 


01 OA 


01 oi 


OI 00 


01 OT 

c lo3 


01 Bfi 
C 1 oO 


> . oo 
<: lOV 






21 9U 




2263 


2264 


2265 


2282 


2284 




oTon 


0701 






oz.ep 






2455 


24o6 


2469 


2509 


2510 


2522 


2525 


0C3fl 


£33 1 


co*»o 








XL OOP 


01 1 3>U 


2340 


235U* 
























>F ILLS 


01 ^HH/' 


25/2* 




























A1 / 

U12A46 


25/^1* 


2591 
























5TPB 


A1 ^/ ✓ / 




2599* 
























STPFLG 


A1 CA 

012A50 


OC 7T« 


25 /6 
























•TPS 


01 2h42 


2569# 


OCQ7 

259/ 
























ITYPE 


A1 "^Z CI 

012^52 


6o6 


OC7Z M 

2576* 


























016046 


tfym 


ZOA 

680 


682# 


685# 


688* 


691 # 


694* 


699* 


7A 0* 

/U2* 


7ACif 
/U5* 


7AO« 

/U9* 


71 C« 


700» 

/ 2c* 






7C^ M 

756* 


77A 
7/9 


783 


787 


796 


803 


809 


Oi z 

816 


OOA 

B2U 


0OC 

825 


ooo 
829 


836 


oy A 
840 






oy c 

845 


O/ O 

849 


863 


867 


874 


877 


881 


oo/ 
894 


Q1 1 

91 1 


ooc 
925 


Q71 

931 


07C 

935 


OCO 

9^^ 






OCT 

953 


070 

9/8 


990 


1018 


1030 


1058 


1070 


1 AOO 

1U98 


1 1 1 A 


1 1 TC 

1 1 35 


1 1/.7 
1 l*l/ 


1 1 7C 

1 ' /5 


1 1 07 
1 1 0/ 






1215 


1 OOT 

1223 


1252 


1272 


1295 


1300 


1304 


1 TAO 

1308 


1 T1 0 

1312 


1 T1X. 

1316 


1 7 OA 

132U 


170/ 

1 324 


1 700 

1328 






1 TOO 

1399 


1 / AO 

1408 


1415 


1422 


1477 


1490 


1500 


1 CA/ 

1 5U4 


1 cno 
1 5UB 


1 CI 0 

1512 


1 Cli^ 

1 516 


1 CIO 

1519 


1 COA 

1 5co 






1 CT1 

1531 


1 CT7 

153/ 


1597 


1609 


1612 


1618 


1629 


1 iCTT 

1633 


163/ 


1iL./ 1 

164 1 


1 &/ / 
164*» 


1771 

1/31 


1 775 






1 7TO 

1 739 


1 7/ y 
1 /44 


1747 


1755 


1800 


1804 


1808 


1 fil o 

1812 


1025 


1029 


1 B77 

1833 


1 B/.0 


1 B/.A 






i OCA 

1850 


1 oc/ 
1854 


1876 


1880 


1884 


1892 


1896 


1 OAA 

19UU 


1 OA/. 

1904 


lOAO 

19U8 


1 Q1 7 


1Q01 

i9cl 


1 Q0*« 
1 7^3 






^ AOO 

1929 


i ATT 

1933 


1945 


1949 


1953 


1957 


1968 


1 070 

19/8 


1000 

1982 


1 oo/ 
1994 


1 ooo 
1998 


OAAO 

2UU2 


OAAA 






OA1 Z 

2016 


2026 


2030 


2046 


2050 


2052 


2059 


2061 


2U65 


OAAO 

2069 


0A77 

2U/ 3 


OAO/. 

2U84 


OAO/. 
tV7*» 






2098 


01 1 7 

21 1 / 


2126 


2130 


01 T/ 

2134 


2138 


2149 


01 QO 

C\ 59 


31 AT 
c lo3 


c 1 0/ 


310A 


33ni 


3P<Vi 










2230 


2234 


2238 


2246 


2250 






??69 


2273 


2291 


2300 






2304 


2308 


2312 


2323 


2342 


2344 


2491 


2494 


2500 


2507 


2517 


2535 


2622 






2637 


2640 


2645 


3185* 
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BOCMP 69ar 1590 1593 2458 

tKf»» 698# U70 U73 1686 1691 2453 2462 

INT 966# 1006 1046 10S6 1123 1163 1203 

SDLMP 698* 1000 1040 1080 1157 1197 1233 

TYPEM 697* 

. ABS. 016046 000 

ERRORS DETECTED: 0 
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2467 2470 2523 2526 2529 



